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INTRODUCTION 


INTELLIGENCE ARTIFICIELLE : OÙ EN SOMMES-NOUS ? 


N'est-il pas étonnant de constater le fabuleux pouvoir évocateur de certains 
mots. Ainsi, quelle richesse, quelle palette de sentiments, de doutes, d'images 
fortes et subtiles dans celui-là : Intelligence. Prétendre donner une définition, aussi 
rigoureuse ou tortueuse soit-elle, n'est-ce pas une gageure ? Une définition, pour 
un tel mot, ne peut prétendre qu’au rang d’'ersatz tant elle vide le mot de son 
contenu émotionnel. Et puis, quelle vanité ! L'intelligence est un domaine si 
complexe, si vaste et si peu connu qu'il faudrait soi-même en posséder une, hors 
du commun, pour en expliquer la nature. Que dire alors de l'intelligence artificielle 
(IA), qui voudrait copier son modèle humain : pour copier, il faut connaître parfai- 
tement l'original, avoir tout analysé, tout compris et tout expliqué. 


Et pourtant l'intelligence artificielle existe, je l'ai rencontrée. comme vous la 
rencontrerez aussi au fil de ces pages. Bien sûr, l'intelligence artificielle n'en est 
qu’à ses balbutiements. Bien sûr, le chemin qui lui reste à parcourir pour égaler 
son illustre modèle est sans commune mesure avec celui déjà effectué. L'intelli- 
gence artificielle n’est qu'un bambin bruyant et trop fier de ses premières dents de 
lait : il lui faudra de nombreuses années, peut-être des siècles pour atteindre l’âge 
adulte. Mais tout de même, des réussites spectaculaires jalonnent déjà son his- 
toire si courte. Qui s'étonnerait de ces titres dans un journal télévisé : 


— “les Etats-Unis réalisent pour la première fois l'interception en vol d'un missile 
grâce à un petit engin “intelligent” capable d'adapter sa trajectoire aux conditions 
atmosphériques et aux caprices de sa cible. 


— un grand maître d'Echecs connaît une défaite cinglante : son adversaire était 
un ordinateur. 


— un bateau très particulier a levé l'ancre aujourd'hui : un ordinateur tiendra lieu 
à bord de seule compétence médicale. 


— des enfants sourds de naissance pourront entendre. par les yeux ! Un micro- 
ordinateur rend désormais cela possible en proposant une représentation visuelle 
des sons...” 


Science-fiction ? Ne croyez pas cela. Les systèmes informatiques de type au- 
tomate ou robot sont désormais capables de s'adapter aux variations d'environ- 
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nement. Les programmes d'Echecs sont à moins de 500 points d'ELD du champion 
du monde. Le système expert baptisé “Bateau Sans Médecin” (BSM), développé 
en 1982 dans le centre scientifique IBM de Paris permet de simuler la prise de 
décision médicale à bord d’un bateau. Toujours dans le domaine médical, d'autres 
systèmes experts permettent le pronostic de certains cancers, et MYCIN peut faire 
des diagnostics sur les infections du sang et les méningites, dont la qualité égale 
celle atteinte par les meilleurs spécialistes. Un prototype de système de visuali- 
sation de la voix, développé autour d’un IBM-PC est utilisé depuis 1979 par l'Ins- 
titut National des Jeunes Sourds de Paris (INJS). 


Les exploits de ces petites machines, les ordinateurs, et surtout des program- 
mes et autres systèmes experts qui les animent, font désormais partie de notre 
vie quotidienne. Dotées d'une faible parcelle d'intelligence, elles parviennent même 
parfois à surpasser l'homme dans des domaines spécifiques. 


DU CALME, DU CALME... 


Il convient d'être réaliste et de replacer dans leur contexte ces quelques réus- 
sites. Il ne saurait être question de renouveler les erreurs passées, à une époque 
pas si lointaine où beaucoup prétendaient ériger la technologie au rang de divinité 
omnipotente. La technologie a ses limites que l’on connaît bien désormais, ins- 
truits que nous sommes par quelques accidents célèbres et quelques échecs 
cinglants. Il en est de même de l'informatique et autres sciences plus portées sur 
le verbe que sur la matière. 


L'homme dispose de cette capacité originale de traiter des problèmes de nature 
très différente, depuis les jeux de stratégie jusqu'à la prédiction du temps. Plus 
sérieusement, le test de Turing permet d'évaluer l'intelligence d'un système expert 
ou de toute autre machine prétendant à l'intelligence. Un opérateur a devant lui 
deux terminaux, le premier contrôlé par un homme en coulisses et le second par 
l'intelligence artificielle. ll pose des questions à partir des deux terminaux et selon 
les réponses, doit pouvoir distinguer l'homme de la machine. S'il n'y parvient pas, 
l'intelligence artificielle est jugée l'égale de l'homme : vous l'aviez compris, la dis- 
tinction est (et pour encore longtemps) très aisée à faire. L'homme a encore de 
beaux jours devant lui ! 


Réservons donc la futurologie pour la conclusion de cet ouvrage et faisons le 
point sur ce que peuvent faire les machines d'aujourd'hui. A la question : existe- 
t-il une machine dotée d'intelligence artificielle et capable de rivaliser dans tous 
les domaines avec un homme ordinaire, les spécialistes répondent : non ! 


A la question : dans combien de domaines spécifiques de l'intelligence l'homme 
est-il supérieur à la machine, ces mêmes spécialistes répondent “très peu” ! Cette 
dernière réflexion justifie à elle seule l’étonnement, voire l'émerveillement d'un 
public non averti. Car cette vérité est tout de même dure à avaler : il n'existe 
presque aucun domaine où il ne soit possible de concevoir une intelligence artifi- 
cielle pouvant rivaliser avec un homme ordinaire. Et pourtant, les chercheurs et 
tous les spécialistes en informatique, robotique, intelligence artificielle, ainsi que 
les linguistes et même les philosophes le savent bien : ce qui a été fait en matière 
d'intelligence artificielle, ou ce qui ne l’a pas été mais qui appartient au domaine 
du possible, constitue un tout petit pas vers un but très éloigné. Et pour atteindre 
ce but, que l’on pourrait figurer par l’androïde intelligent décrit dans les romans 
d'Isaac Asimov, mille ans et mille milliards de dollars n'y suffiront sans doute pas. 


INTRODUCTION |11 


Alors, du calme, du calme... Gardons les pieds sur terre, analysons ce premier 
pas, apportons-y notre modeste contribution (10 programmes couvrant tous les 
domaines de l'intelligence artificielle) et tentons d'imaginer quelle sera la pro- 
cine étape dans cette aventure passionnante que constitue l'intelligence artifi- 
cielle. 


AU FAIT DE QUOI PARLONS-NOUS ? 


Il n'est pas de domaine plus complexe que l'intelligence, de régions aussi peu 
explorées que celles qui s'étendent au-delà de notre boîte crânienne. Définir en 
quelques mots ou quelques phrases l'intelligence constitue un exercice bien pé- 
rilleux. Beaucoup s'y sont cassé les dents et les rigoristes plutôt davantage que 
les amoureux de la périphrase. 


Laissons de côté les définitions de type métaphoriques qui, quoique non dé- 
nuées d'intérêt, n’apportent pas grand chose au débat : “c'est ce qui distingue 
l'homme de la bête”, et qui ouvrent la porte aux pires boutades : “c'est ce qui 
distingue la bête de l'homme”. 


Attardons-nous un instant sur celle-ci : “Aptitude à s'adapter à une situation, 
faculté de comprendre...” (Larousse). Cette définition (incomplète car elle ne laisse 
rien entrevoir des mécanismes) a le mérite d'évoquer à la fois le but (comprendre) 
et les moyens (s'adapter). Elle reste néanmoins trop vague et nous ne saurions 
nous en contenter. 


Préférons-lui celle-ci sous forme de question/réponse. À la question “quelle 
différence y-a-t-il entre le fonctionnement du cerveau de l'homme et celui des 
primates”, David Krech, auteur d'ouvrages de référence sur le sujet, énonçait la 
réponse suivante : “Au contaire de l'animal dont les moyens de communication 
sont uniquement émotionnels, l'homme dispose d'un langage qui a recourt à l'abs- 
traction et la symbolisation”. Cette définition de l'intelligence humaine est très 
intéressante car elle met en exergue les moyens (abstraction et symbolisation) et 
passe plutôt sous silence le but, la résolution de problèmes. Nous reviendrons à 
plusieurs reprises sur cette conception de l'intelligence humaine car elle constitue 
la clef des progrès récents et spectaculaires en matière d'intelligence artificielle. 


Sans déflorer le sujet que nous aurons tout loisir de développer plus loin, disons 
tout de même que la résolution de problèmes en informatique s'appuie sur deux 
disciplines fondamentales : l’algorithmique et l'heuristique. Alors que la première 
privilégie le problème à résoudre, souvent au détriment des moyens, la seconde 
tente de dégager des règles de recherche, indépendantes du contexte et de son 
objet, c'est-à-dire du problème. Les opérations qui mènent au résultat deviennent 
alors symboliques (SI le cœur bat trop vite ALORS s'inquiéter) : nous sommes en 
plein dans le domaine de l’abstraction et de la symbolisation chères à D. Krech. 


L'ordinateur “s'inquiète” et agit en fonction. L'intelligence humaine, ses mé- 
canismes, sa nature même, posent une quantité de questions sans réponse. L'in- 
telligence artificielle pose elle une quantité de problèmes à résoudre. Car si les 
définitions de l'intelligence artificielle brillent plus par leur nombre que par leur 
rigueur, toutes admettent le même objet : faire simuler par des machines les com- 
portements humains dans la résolution des problèmes. La reconnaissance de 
formes (pgm RECFORM), l'analyse du langage (SEMAN), la création du mouve- 
ment (ROBOT), l'apprentissage (TIC-TAC-TOE et PUISSANCE 4), les systèmes 
experts (BALANCE), et bien d’autres programmes présentés dans cet ouvrage se 
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rapportent (quoiqu’à des niveaux différents) à cette catégorie de problèmes, tout 
à la fois compliqués et tellement passionnants à résoudre : limitation des com- 
portements de l'homme avec pour but ultime égaler voire dépasser ses perfor- 
mances. “Imiter”, vous l'aviez compris, reste le mot clef pour parler d'intelligence 
artificielle. 1! faut imiter l'intelligence humaine, ce qui n'interdit en aucun cas de 
faire mieux ! A ce stade, la nécessité de formalisation du processus de l'intelli- 
gence de l’homme apparaît clairement. Car pour insuffler une étincelle 
“d'intelligence” à l'ordinateur, lui donner une capacité de raisonner équivalente à 
celle de l'homme, la méthode la plus simple consistera à lui inculquer les mêmes 
principes qui guident l’homme face à un problème à résoudre. 


Attention ! La méthode la plus simple ne veut pas dire la meilleure : il est pos- 
sible, voire probable, que d’autres approches de l'intelligence artificielle puissent 
donner de meilleurs résultats. Nous attendons simplement le petit génie qui les 
définira.. La rigueur étant de règle dès que l'on s'adresse à des machines qui ne 
comprennent guère autre chose que des nombres, et encore placés dans un ordre 
précis, il va falloir au maximum extirper de la démarche humaine tout ce qui est 
systématique. Ce que nous n'aurons pas pu expliquer (la part de mystère de 
l’homme) et donc enseigner à l'ordinateur, celui-ci le compensera par sa vitesse 
de calcul : en quelque sorte, la force brute au secours du manque d'intuition. En 
détaillant la complexité du processus qui conduit l'homme de la collecte d'infor- 
mations jusqu'à l’action issue de sa réflexion, on comprendra mieux pourquoi 
aucun ordinateur ne peut (à ce jour) prétendre l’égaler. En décortiquant ce pro- 
cessus pas à pas, en montrant que chacune des étapes de l'intelligence humaine 
peut être reproduite par l'intelligence artificielle surtout en donnant pour chacune 
de ces étapes un exemple de programme d'intelligence artificielle, nous montre- 
rons qu'il n’est pas utopique d'imaginer (un jour lointain) la naissance de l'Androïde 
cher à Isaac Asimov, parfaite imitation de l'homme. 


LES DOMAINES 
DE L'INTELLIGENCE ARTIFICIELLE 


-Il y a deux façons (au moins) de parler de l'intelligence artificielle. La première 
consiste à se gargariser de mots ronflants et évocateurs des mystères de l'infor- 
matique. On parlera de reconnaissance de formes (RF), reconnaissance de la 
parole (Rpa), systèmes experts (SE), bases d'images, de faits, de données, de 
règles, bases hiérarchiques, relationnelles, etc. Bien sûr, ces mots ont un sens, 
qui le plus souvent cache des concepts très élaborés et difficiles à appréhender. 


Mais les énumérer, même en les expliquant, ne saurait suffire à justifier leur 
présence dans un ouvrage traitant de l'intelligence artificielle. Pas plus que nous 
ne saurions ici nous contenter d'affirmer que tous les domaines cités entrent dans 
le cadre de la seule définition acceptable de l'intelligence artificielle : “imitation des 
comportements humains dans la résolution de problèmes”. Certes, et nous le 
développerons plus loin, ces domaines s'inspirent bien du modèle humain et c'est 
quand même là leur principale caractéristique. Mais quelle relation les lie entre 
eux ? Quel rapport entre la reconnaissance de formes, un système expert, un 
robot, un jeux électronique d'échecs ? Ces mots n'ont-ils en commun qu'un doux 
relent d'exotisme scientifique ? Certainement pas. Comme nous allons le voir, tous 
ces domaines interviennent à un niveau ou à un autre dans le processus global 
d'intelligence. Ce processus nous allons le décrire en établissant (comme annoncé 
précédemment) un parallèle entre l'intelligence humaine et artificielle. Plus tard, 
et comme nulle démonstation ne vaut l'exemple, nous présenterons pour chacune 
des étapes fondamentales du processus, une application inédite sur Amstrad. 
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UNE VUE D’ENSEMBLE 
DE L'INTELLIGENCE HUMAINE 


Comment fonctionne l'intelligence humaine, d'un point de vue macroscopique ? 
Tout commence au niveau des sens (vue, ouïe, etc.). Toutes sortes de signaux 
en provenance du monde extérieur sont transmis au cerveau qui les filtre, les 
analyse, les compare, les interprète. Cette première étape de l'intelligence est la 
PERCEPTION. Puis les données ainsi recueillies sont compilées, transformées, 
manipulées, mixées à d'autres données déjà dans la mémoire. De nouvelles don- 
nées sont ainsi produites pendant cette phase, déduite des premières au cours 
d'un processus itératif complexe (hypothèse, erreur et retours en arrière) pour 
conduire à une conclusion : c'est la phase de REFLEXION. Enfin ces conclusions 
peuvent consister en la nécessité d'une intervention sur le monde extérieur : c'est 
la phase d'ACTION. 


Perception, Réflexion, Action sont les trois mamelles de l'intelligence. Les deux 
étapes aux extrémités sont en contact avec l'environnement. La perception consiste 
à enregistrer l’état de cet environnement, l’action à le modifier. Entre les deux, la 
réflexion, typiquement introspective, manipule les données. Tous les exemples 
tirés de la vie courante, même les plus triviaux, comportent ces trois étapes. 


Ainsi, détaillons le processus qui vous conduit à acquérir cet ouvrage. Première 
étape, PERCEPTION : vous apercevez le livre dans un magasin, vous le feuilletez, 
vous relevez son prix. Toutes ces données sont adressées à votre cerveau par 
vos sens : la vue (apercevoir, relever) et l'ouïe (on peut vous dire le prix, l'am- 
biance sonore du magasin, etc.). L'étape de perception consiste surtout à recon- 
naître ces données pour ce qu'elles sont. Un rectangle : le livre, les traits sur ce 
rectangle : des chiffres, ces chiffres : un prix etc. La seconde étape, la RE- 
FLEXION, vous amène à rapprocher la nature de l'objet (un livre), ses caractéris- 
tiques (intéressant, instructif), de la possibilité de l'acheter (le magasin, son prix 
raisonnable), de votre désir de le posséder (donnée interne ou déduite des pré- 
cédentes). Pendant cette phase, un raisonnement vous conduit à la conclusion de 
l'achat du livre. La dernière étape, l'ACTION, consiste à mettre en œuvre cette 
conclusion : prendre le livre, aller à la caisse, payer. (A propos, toutes nos félici- 
tations pour cette acquisition !). 


En fait, le processus réel est plus compliqué que cela car itéractif : il existe un 
va-et-vient entre les trois étapes citées. La conclusion et l’action n'interviennent 
qu'après un grand nombre d'itérations de type Perception/Réflexion/Action. Ce- 
pendant, on retrouve toujours ces trois étapes, et il sera donc très intéressant de 
distinguer les mêmes en intelligence artificielle. 


LA CARTE DE L'INTELLIGENCE HUMAINE 


Nous avons détaillé le processus : avant de l'appliquer à l'intelligence artificielle, 
examinons comment il est mis en œuvre chez l'homme. Une approche riche en 
enseignements pour une application future à l'ordinateur consiste à analyser l'in- 
telligence humaine en se plaçant à la frontière entre le macroscopique (le proces- 
sus) et le micoscopique (neurones et autres cellules nerveuses). Avec cette 
approche, on peut dresser une véritable carte des fonctions assurées par notre 
cerveau. Il est remarquable de constater ce découpage physique entre des fonc- 
tions déjà difficiles à séparer d'un seul point de vue philosophique. 
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Les fonctions du cerveau 


motricité 





écriture 







geste 











langage | Visage 


perception 
auditives 






perceptions 


compréhension visuelles 


du langage 


L'INTELLIGENCE ARTIFICIELLE IMITE 
L'INTELLIGENCE HUMAINE 


Il est tout à fait possible d'établir un parallèle entre le cerveau humain et l'ordi- 
nateur. Les deux peuvent être analysés comme des “systèmes” hiérarchiques. 
On distingue grossièrement quatre niveaux de hiérarchie (Marr et Poggio, 1977). 
Le niveau le plus bas concerne l'aspect microscopique : les transistors et les diodes 
pour l'ordinateur à comparer avec les neurones et les synapses du cerveau. Le 
niveau suivant s'intéresse aux assemblages réalisés à partir de ces composants 
élémentaires : additionneur, multiplieur, mémoires, et même microprocesseur pour 
l'ordinateur. Le troisième niveau est celui de l'’algorithmique, c'est-à-dire la des- 
cription des suites d'opérations nécessaires pour parvenir à un résultat recherché. 


L'atgorithme de l'addition décrira à l'homme comme à la machine comment 
mener à bien cette opération. Enfin le niveau le plus élevé vise les théories mathé- 
matiques, de l'information, etc. La théorie de l'addition par exemple expliquera la 
signification de l'opération, son objet, sont but, etc. Elle est indépendante de la 
nature des chiffres manipulés (romains ou arabes) contrairement à l'étape précé- 
dente. Il est ainsi possible de maintenir la comparaison homme/machine du mi- 
croscopique ou macroscopique. 


PERCEPTION, RÉFLEXION, ACTION 
EN INTELLIGENCE ARTIFICIELLE 


On retrouve les mêmes étapes en intelligence artificielle (simplifiées) que nous 
avons isolées en intelligence humaine. 
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De la perception à l’action 


Les données (gauche), l'intelligence artificielle (centre) et l’environnement 
(droite) 


Accès à l'information 


à Base de Base de 
Base d'images +oxtes données 


Apprentissage 


Accès à l'information 


Base de Base de 
faits règles 


Apprentissage 





Accès à l'information 





Base 


d'actions FPION 


Apprentissage 
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ENVIRONNEMENT 


Pendant la phase de PERCEPTION, l'intelligence artificielle : 
— recueillera toutes les informations en provenance du monde extérieur ; 


— consultera des bases d'images, de texte, de données pour identifier ces in- 
formations ; 


— mettra à jour toutes ces bases au cas où l'information ne serait pas présente 
en mémoire ; 


— passera la main à la fonction “Réflexion”. 


Pendant la phase de RÉFLEXION, toutes les informations enregistrées servi- 
ront à nourrir le “cerveau” de l'ordinateur qui : 


— consultera des bases de faits et des bases de règles d'interprétation de ces 
faits ; 


— exécutera des algorithmes ou utilisera des méthodes heuristiques pour par- 
venir à une conclusion ; 


— mettra à jour les bases en fonction de cette conclusion ; 
— passera la main à la fonction “Action”. 


Enfin la phase d'ACTION se chargera de mettre en œuvre les conclusions, s'il 
y a lieu. 


DES EXEMPLES DE PROGRAMMES 
DANS LES TROIS PHASES 


Comme on peut le voir sur la figure 4, les applications ne manquent dans aucune 
des trois étapes citées. Et elles ne sont jamais triviales ! En particulier, il ne fait 
surtout pas négliger les phases de perception et d'action qui font partie intégrante 
du processus de l'intelligence. Faire parler un robot, interpréter une photo, effec- 
tuer une traduction automatique, constituent autant d'actes complexes nécessitant 
toutes les ressources de l'intelligence. Ces diverses fonctions font appel aux tech- 
niques les plus sophistiquées de l'informatique, comme nous le montreront dans 
les chapitres suivants, par l'exemple. Nous aborderons successivement et en dé- 
tail les trois phases en présentant pour chacune d'elles un ou des programmes 
opérationnels sur Amstrad. 


Perception 
Reconnaissance de forme 


RECFORM peut reconnaître des figures que vous lui dessinerez parmi les fi- 
gures que vous lui aurez entrées en mémoire. 
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Reconnaissance de la parole 


SYNTAX génère des phrases correctes du point de vue de la syntaxe et de la 
sémantique, à partir de mots que vous lui aurez précisés. 


SEMAN vous comblera d’aise en soutenant un véritable dialogue car il est ca- 
pable de “comprendre” le sens des mots. 


PHRASES répondra à vos questions. Pour cela, il choisira la phrase la plus 
adéquate parmi toutes celles que vous lui aurez “apprises”. 


Réflexion 


Algorithme et apprentissage. 


PUISSANCE 4 et TIC TAC TOE en 3 dimensions sont deux logiciels de jeux 
utilisant des algorithmes de réflexion. Mais leur particularité, qui vous séduira, 
réside dans leur capacité d'apprendre au fil des parties. jusqu'à vous battre ? 
Rien de tel pour progresser qu'un adversaire qui progresse avec vous ! 


Système expert 


BALANCE vous étonnera par son acuité. Ecrit en étroite collaboration avec des 
médecins spécialistes et généralistes, il vous fournira, après interrogation de vos 
symptômes, un diagnostic médical et le raisonnement qui l'a guidé. 


Action 
Robots qui bougent 
SOURIS trouve la sortie d'un labyrinthe que vous aurez vous-même dessiné. 


ROBOT obéit à vos ordres tapés en langage naturel : il évolue dans un décor 
stylisé et possède un bras terminé par une pince capable de saisir divers objets. 


Robots qui parlent 


Il vous faudra beaucoup de résistance pour ne pas tomber amoureux de SO- 
PHIE, dont la bouche pulpeuse plus vraie que nature, “prononce” silencieusement 
un texte que vous tapez à l'écran. Apprenez à lire sur les lèvres de Sophie et rêvez 
à une femme silencieuse et belle comme... un ordinateur ! 
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Les trois étapes de l'intelligence par l’exemple 











Reconnaissance de 
formes (RF) 






Reconnaissance de 
la parole (Rpa) 





* Recfora * Syntax 
* Phrase 


* Seman 



















Reconnaissance 
d'odeurs ou autres 


Reconnaissances 
tactiles (robots) 


|. PERCEPTION 


Système expert Système expert 
pour la pour la (Rpa) 















Algorithmes de 
résolution de 
problèmes 
minimax, simplex, 
statistiques, etc. 


Systèmes experts 
divers 

médecine, jeux, 
détection de pannes, 
etc. 
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* Tic-Tac-Toe 





* Balance 


DCMTDIM-IXMm MOZOZ mr 


I. RÉFLEXION 


Robot qui marche 
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préhension d'objets 
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pinces, etc. 





* Harold 


Il. ACTION 
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Les dix programmes (*) proposés dans cet ouvrage couvrent la plupart des 
domaines de l'intelligence artificielle. 


Attention ! 


La frontière entre ces programmes est loin d'être aussi marquée qu'il n'y paraît 
au travers de la classification que nous vous avons proposée. Et cela pour deux 
raisons. La première tient au fait que le système complet d'intelligence artificielle 
présenté sur la figure 3 n'est en réalité qu'une vue de l'esprit : il n'existe pas tel 
quel, mais plutôt morcelé en une multitude de programmes traitant l'un ou l'autre 
aspect de l'intelligence. Or, pour qu'un programme de reconnaissance de la parole 
comme SEMAN soit opérationnel, et bien qu'il ait trait à la perception, il nécessite 
un module de réflexion et même d'action (qui se résumera à l'affichage sur l'écran). 


De même, le système expert BALANCE commence par interroger le patient : il 
comprend donc une part de perception pour saisir les réponses. Il y a 10 program- 
mes présentés dans cet ouvrage, nous pourrions pour chacun dégager les trois 
étapes du processus d'intelligence artificielle. Cependant, chacun possède un 
point fort dans une seule (quelquefois deux) de ces étapes : perception, réflexion 
ou action. En cela, notre découpage se justifie complètement. 


De même, comme vous pouvez le constater sur la figure 3, deux fonctions 
supplémentaires interviennent à tous les niveaux du processus : l'accès aux don- 
nées et l'apprentissage. Pour ces deux fonctions, nous aurions pu prévoir des 
chapitres spécifiques : comme elles sont présentes dans presque tous les pro- 
grammes d'intelligence artificielle, nous avons préféré en parler “à l'occasion”. 
Ainsi, le programme PHRASES traite plus particulièrement l'accès aux données 
alors que les programmes SOURIS, PUISSANCE 4 et TIC TAC TOE mettent 
l’'emphase sur l'apprentissage. 


Avec ces dix programmes, tous les domaines de l'intelligence artificielle seront 
abordés : il est évident que chaque domaine ne sera que partiellement couvert. 
Cela tient à la complexité qui les fonde, à leur incroyable richesse, à l'inconnu qui 
constitue encore la plus grande part de l'intelligence artificielle. Mais cela, c'est 
l'aventure du 21° siècle ! 


PREMIÈRE PARTIE : 
PERCEPTION 


CHAPITRE 1 
RECONNAISSANCE DE FORMES 


QU'EST-CE QUE C’EST ? 


Ne vous y fiez pas ! Si le concept de reconnaissance de formes et d'images est 
un des plus simples à appréhender parmi tous ceux de l'intelligence artificielle, les 
mécanismes qui entrent en jeu dans sa mise en œuvre atteignent des sommets 
de complexité rarement égalés. La simplicité apparente du concept relève d'une 
idée fausse à laquelle il convient sans délai de tordre le cou. Pas plus que les 
cordes vocales ni la langue n'interviennent dans le sens des mots qu'ils produi- 
sent, les yeux ne permettent d'attribuer un sens aux images qu'ils perçoivent. Le 
cerveau, et lui seul, traite l'ensemble des impulsions électriques transmises par la 
vue pour les transformer en images, avec tout ce que ce mot renferme d'émotions, 
de références, d'imagination. De nombreuses expériences montrent toute l'éten- 
due de l'intervention de l'intelligence dans la reconnaissance de formes. Une forme 
imparfaitement close pose à un observateur (à son insu) le problème de sa clôture. 


Celui-ci la complète inconsciemment au point de n'être plus capable (à moins 
d'un effort dirigé) de discerner le point de rupture de la forme. Un phénomène 
montre spectaculairement le rôle de l'intelligence en reconnaissance de formes : 
les analphabètes ne parviennent pas à appréhender correctement les volumes. 
En effet, le cerveau a besoin d'être entraîné pour être capable de faire sa mise au 
Feu légèrement en deçà de l'image et la saisir ainsi en son entier d’un seul coup 

"œil. 


De toutes les fonctions assurées par notre cerveau, la reconnaissance de formes 
est une des plus difficiles à analyser et à expliquer en termes concrets. Termes 
concrets qui pourtant constituent une base de travail indispensable aux informa- 
ticiens pour pouvoir reproduire ces mécanismes. On peut admettre, au moins dans 
le principe, qu'un ingénieur peut dupliquer n'importe quel mécanisme biologique, 
quand il est parfaitement compris par les neurophysiologistes. On peut admettre 
en contrepartie que bien rares sont les mécanismes biologiques qui acceptent de 
livrer leurs secrets, et ceux de la reconnaissance de formes plutôt moins que les 
autres. Perspectives, couleurs, formes, mais aussi émotion, référentiel culturel, 
expérience, concourent à optimiser l'interprétation de l'image, formant un réseau 
complexe et quasiment inextricable.. donc très difficile à imiter en intelligence 
artificielle. 
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Avant longtemps, les systèmes de reconnaissance de formes ne seront que des 
ersatz de la merveille que constitue leur modèle humain. Ils pourront en général 
être facilement pris en défaut et l’indulgence sera de règle en ce qui concerne les 
rares systèmes de reconnaissance de formes non spécialisés et qui se révèlent 
les plus ardus à définir. 


L'ÉTENDUE DU PROBLÈME 


Pour ce que l’on comprend des mécanismes de la reconnaissance de formes 
chez l’homme, il semblerait que les neurones répondent sélectivement à certains 
stimulis. Parmi eux, citons la taille d’un objet, sa couleur, sa forme, son orientation, 
etc. 


Si l'on se réfère à la figure 1, p. 14 donnant une carte “géographique” des 
principales fonctions réalisées par le cerveau humain, on peut constater que la 
reconnaissance de formes et de couleurs y occupe un espace très important. 
Indiscutablement, dans l’état actuel des recherches en intelligence artificielle et 
en reconnaissance de formes, il faut bien reconnaître à l'homme une infinie su- 
périorité sur la machine, du point de vue de la simple perception de l'image. L'œil 
humain est capable de détecter les signaux les plus ténus, puis de les mettre en 
forme et de les transmettre au cerveau à la vitesse incroyable de plus de 4 millions 
de bits par seconde ! Quant à l'ensemble du traitement effectué par notre cerveau 
pour passer d'une succession de signaux électriques à une représentation quasi 
parfaite de la réalité, il reste en grande partie un mystère pour les neuro-physio- 
logistes, un miracle d'efficacité. 


Est-ce à dire que la capacité que possède l'homme de reconnaître les objets 
qui constituent le monde extérieur est inimitable ? Nous n'affirmerons pas cela, 
d'autant plus que le but de cet ouvrage est de présenter des programmes d'appli- 
cation de tous les domaines de l'intelligence artificielle y compris la reconnais- 
sance de formes. Il est clair qu'aujourd'hui, aucun système d'intelligence artificielle 
ne peut prétendre égaler les performances humaines dans ce domaine. Cepen- 
dant, il existe des situations bien spécifiques où l'ordinateur parvient à surclasser 
l'homme. Ce dernier peut être par exemple victime “d'illusion d'optique”, en réalité 
victime de certains principes qui fondent ses mécanismes de reconnaissance de 
formes. Ainsi, si l'on observe la figure 1, on se rend compte que “l'œil” ne parvient 
pas à discerner la structure formée par les points, pourtant parfaitement régulière, 
alors qu'il reconnaît la forme des cercles entourant ces points. De même sur la 
figure 2, l'observateur a bien du mal à admettre que les deux lignes ont la même 
longueur, ou que les deux cercles sont de taille identique. 


Notre propos n'étant pas d'expliquer en détail les mécanismes de la reconnais- 
sance de formes chez l'homme, nous ne nous étendrons pas sur le pourquoi et le 
comment de ces quelques faiblesses qui peuvent nous amener à percevoir une 
image un peu déformée de la réalité. Notons ioutefois que ces faiblesses pourront 
être autant de points forts de l'ordinateur qui dans certains cas pourra se révéler 
plus efficace que l’homme. 


Illusion de Delbeuf : les cercles (1) et (2) semblent de tailles différentes 


RECONNAISSANCE DE FORMES 


position excentrique dans les cercles. 
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Illusion de Müller-Lyon : 
les segments (1) et (2) semblent de longueurs différentes. 


LES DOMAINES D'APPLICATION 


Sans produire une liste exhaustive de tous les domaines de recherche et d'ap- 
plication de la reconnaissance de formes, citons ceux qui nous paraissent les plus 
dignes d'intérêt à court terme car économiquement viables. 


Nous voulons parler des domaines suivants : 


* militaire : reconnaissance aérienne, visée... : 

" sécurité : identification de personnes dans l'industrie, les aéroports, les 
banques, les laboratoires de recherche, etc. ; 

“industrie (automobile et autres) : reconnaissance des pièces sur des chaînes, 
vision des robots d'assemblage... ; 

*" médecine : reconnaissance de radiographies, tomographie, etc. ; 

* bureautique : tri de documents ; 

"pétrole : recherche de nappes pétrolifères par analyse de photos ; 

" chimie : identification de produits par analyse de spectrographie. 


LE PRINCIPE 


Les neuro-physiologistes ont appris énormément de choses sur l'aspect micros- 
copique de la vision, le type des cellules qui entrent en jeu, leur capacité de filtrage, 
leur aptitude à sélectionner certains signaux, etc. mais fort peu pour tout ce qui 
touche aux mécanismes de la reconnaissance de formes. Or ce sont ces méca- 
nismes qu'il faut comprendre pour pouvoir les imiter avec quelque efficacité en 
intelligence artificielle. 


Il convient d'aborder la reconnaissance de formes sous l'angle du traitement de 
l'information : c'est par ce biais qu'il sera possible de construire un système de 
reconnaissance de formes réellement intelligent et donc opérationnel. Dans cette 
optique, on peut diviser le processus de la reconnaissance de formes en un certain 
nombre d'étapes fondamentales. Mais avant d'effectuer le découpage qui per- 
mettra de classer les problèmes pour mieux les résoudre (diviser pour régner !), 
tâchons de voir en quoi consiste cette “information” à traiter. 
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Les étapes 


On distingue essentiellement quatre étapes : 


ETAPE 1 
enregistrement et 


simplification de 
l’image 


ETAPE 2 
segmentation de 


l'image 


._ ETAPE 3 
reconstitution des 
contours 


ETAPE 4 
reconnaissance 
des segments 





Prenons une image des plus simples : un avion dans le ciel. Sur quel type 
d'informations va pouvoir s'appuyer l'intelligence artificielle pour identifier cet 
objet ? 


la forme, 

le fond, 

le contexte social, 

les circonstances de l'observation, 

la référence à d’autres images semblables. 
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La forme est constituée du fuselage, des ailes, de l'empennage... Le ciel plus 
quelques nuages occupent le fond de l'image. Notons que ce fond peut éventuel- 
lement cacher une partie de la forme. Le contexte social apprend à l'ordinateur 
l'existence d'avions, généralement sur fond bleu, se déplaçant en ligne droite. 


Comme on s’en doute, la part de telles informations dans l'identification de 
l'objet est prépondérante : un homme de Cromagnon serait bien incapable de 
reconnaître un avion, et compte tenu de son propre contexte social, le confondrait 
probablement avec un oiseau géant. Les circonstances de l'observation peuvent 
apporter une aide précieuse : “en levant les yeux”, à l'extérieur, etc. Enfin, et ce 
point rejoint en partie le contexte social, l'identification ne pourra être effectuée 
qu'après comparaison avec d’autres images semblables. 


LES MOYENS 


Pour être le plus efficace possible, l'ordinateur devra faire appel aux trois disci- 
plines de base de l'intelligence artificielle : 


— l'algorithmique, 
— l'heuristique, 


— la statistique. 


En schématisant, disons que l’algorithmique sert surtout à simplifier l'image, en 
éliminant les points abérrants, les objets peu intéressants, etc. Des algorithmes 
serviront à découper une image trop complexe en plusieurs images élémentaires, 
ou encore à compléter des formes non closes par suite de perturbations exté- 
rieures (nuages cachant une partie du fuselage), etc. L'heuristique sera utilisée 
plutôt pour résoudre des problèmes de type “expertise”, par exemple pour vérifier 
une hypothèse. Le système expert CRYSALIS (1979) détermine la structure de 
protéines à partir de cartes de densités d'électrons, à trois dimensions. Enfin, la 
statistique permet de comparer l'image analysée avec des images de référence. 


Son utilité apparaît comme une évidence dans les applications médicales de 
reconnaissance de formes. Un système statistique mis au point à l'Ecole Centrale 
à Lyon compare des radiographies de colonnes vertébrales déformées avec les 
mêmes, saines. Grâce à cette comparaison statistique très “fine”, et aux conclu- 
sions produites par l'ordinateur, un chirurgien peut estimer l'opportunité d'une 
opération avec un risque d'erreur réduit à sa plus simple expression. 


Durant la phase d'enregistrement de l'image, toute une panoplie de techniques 
intervient dans le but de simplifier au maximum l'image et de ne conserver finale- 
ment en mémoire que l'information utile. Ces techniques aussi diverses que va- 
riées, peuvent aller du traitement optique de l'image jusqu'à l'application 
d'algorithmes simples ou très élaborés. Parmi les algorithmes élémentaires, mais 
qui donnent néanmoins d'excellents résultats, citons le quadrillage de l’image pré- 
senté sur la figure 7 ci-après. 
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contours à 
reconstituer 


Le but est de reconstituer la forme intégrale de l'avion. ll est donc nécessaire 
d'éliminer la fumée. 


L'image 





Image représentée 
Image Image après quadrillage par une matrice 12 x 12 
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Dans ce cas (cercle), une technique beaucoup plus payante aurait consisté à 
rechercher l'équation de la forme : x2 + y2 = a2. Une opération très spectaculaire 
dans le cas d'images complexes consiste à rechercher les changements d'inten- 
sité de l'image. Aux passages d'une zone d'ombre à une zone éclairée, une ligne 
est tracée comme sur la figure 8 ci-dessous. Cette technique. mise au point par 
Marr et Heldreth en 1979, s'avère très rentable pour mémoriser une image dans 
un espace mémoire minimal. 





Reconnaissance de formes 


Première étape de la reconnaissance de formes : on enregistre les 
changements d'intensité de l'image (Marr et Hildreth, 1979). 
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La segmentation consiste à dénombrer puis isoler les différents objets présents 
dans l’image. Implicitement interviennent là aussi diverses techniques de simpli- 
fication de l'image : seuls les objets significatifs seront conservés. Cette phase de 
la reconnaissance de formes voit son efficacité grandement accrue si le program- 
me sait ce qu'il cherche : par exemple une horloge dans une place d'église, etc. 
Ainsi, le programme de Freuder identifie un marteau dans une scène complexe. 


Durant la phase de reconstitution des contours, l'ordinateur cherche à obtenir 
des images le plus net possible. Par exemple, un algorithme de “filtrage” tentera 
d'éliminer les points aberrants, c'est-à-dire n'ayant pas au moins deux points voi- 
sins : cette technique corrige certaines erreurs intervenues au moment de la saisie 
de l'image, due à des parasites. D'autre part, certaines lignes accidentellement 
coupées sont reconstituées. 






Point aberrant : 
il n’a qu'un 
seul voisin 


Avant filtrage Après filtrage 


Seuls les points possédant plus d'un voisin sont conservés. 


La reconnaissance proprement dite de l'image n'intervient qu'après toutes ces 
étapes préalables. On dispose alors d’une image “saine” que l'on peut comparer 
avec des images de référence sans être gêné par d’autres images parasites ou 
simplement mal saisies. Toutes les erreurs de ce type sont censées avoir disparu 
à ce stade. Cette reconnaissance s'effectue soit par des méthodes statistiques 
(dès qu'il s’agit de juger de la ressemblance avec une référence, les statistiques 
se révèlent très puissantes), soit par des algorithmes. Ces derniers doivent être 
capables de “triturer” l'image dans tous les sens, de la déformer, lui faire effectuer 
toutes les rotations possibles. 


(1) (2) 
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(3) | (4) 


Seules (1) et (3) sont identiques, par rotation dans l'espace. 
Aucune rotation n'amène (2) et (4) en convergence. 


Ainsi, quelle que soit la position de l’image dans l'espace, sa taille, ses variantes 
de forme, le programme doit trouver une ressemblance entre elle et l'image de 
référence enregistrée préalablement. Pour reprendre l'exemple de l'avion, l'intel- 
ligence artificielle doit être capable de reconnaître un avion dans n'importe quelle 
position (au décollage, de dessus, de côté, etc.) en n'ayant qu'une seule image 
en mémoire. Pour réaliser cela, on fait intervenir la notion de modèle : une des- 
cription modélisée d’un objet donné, avec ses axes de rotation, les variations 
possibles de formes, etc. La figure suivante montre un modèle simplifié d'homme. 





Modèle 3D de l'homme, avec les axes de rotation. || permet de reconnaître une 
image d'homme déduite de la forme initiale par des rotations autour de ces axes. 
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PRÉSENTATION DU PROGRAMME RECFORM 
COMMENT L'UTILISER ? 


Ce logiciel permet la mémorisation d’une base d'objets (auparavant tracés par 
l'utilisateur) puis la recognition, parmi ceux-ci, d’un objet tracé par l'utilisateur. 


L'écran se présente sous la forme de trois fenêtres. La fenêtre inférieure est 
dédiée au dialogue. La fenêtre supérieure gauche est celle sur laquelle l'utilisateur 
dessine une figure, à l’aide de l'utilitaire graphique intégré, tandis que la fenêtre 
supérieure droite peut afficher un objet contenu en mémoire. 


Les cinq options du menu principal permettent : 


1 1 
Entree d’un nouvel objet 
Liste des ob, , 
Sauvegarder à base d'objets --- 
harger une base d'objets 





RECFORM 1 : le menu général vous offre 5 options 


— la création d'un nouvel objet : l'utilisateur trace une figure, le logiciel l'analyse 
et la mémorise ; 


— la recognition d'un objet : l'utilisateur trace une figure, puis le logiciel l'analyse 
et cherche en mémoire l'objet le plus ressemblant, puis l'affiche dans la fenêtre de 
droite. D'autre part le pourcentage de ressemblance est affiché ; 


> mi liste des objets : les objets en mémoire défilent un à un dans la fenêtre de 
roite ; 


— Sauvegarde de la base d'objets ; 
— lecture d'une base d'objets. 
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La création d'une figure s'effectue à l’aide d’un “crayon” pilotable à partir des 
touches du pavé numérique (12346789). Ce crayon peut être levé, baissé ou agir 
comme une gomme (il apparaît à l'écran, respectivement sous forme des lettre L, 
B ou G) ; la commutation entre ces trois modes s'effectue par la touche espace. 
Lorsqu'une figure est terminée, il suffit de presser la touche ENTER. 


COMMENT ÇA MARCHE ? 


Le cœur de ce logiciel est la partie analyse des caractéristiques de l’objet nou- 
vellement tracé par l'utilisateur, c'est celle-ci qui permettra ultérieurement la re- 
cognition de cet objet. 


Cette grande partie est composée de trois modules, dont les fonctions sont 
respectivement le calcul : 


— du nombre de trous, 
— du nombre de figures, 
— du centre de gravité ainsi que du nombre de pointes et d'angles. 


Ces critères de distinction ont été fixés arbitrairement, après l'expérimentation 
de plusieurs solutions. Nous allons maintenant développer plus en détail le fonc- 
tionnement de chacun de ces modules. 


Détermination du nombre de trous 


Par convention, un trou est une surface composée de points éteints et entière- 
ment entourée de points allumés. Le programme commence par chercher une 
case vide puis, à la façon du programme d'exploration de labyrinthe, il explore les 
cases alentour jusqu'à ce qu'il rencontre soit un point allumé, soit un point déjà 
exploré, auquel cas il explore une autre case (ou revient en arrière en cas d'im- 
passe), soit un bord, auquel cas la surface explorée est ouverte et ne fait donc 
pas partie d'un trou. Si le retour en arrière ramène au premier point exploré, sans 
qu'un bord du cadre ait été rencontré alors, la surface explorée est un trou et le 
nombre de trous (NTROUS) est incrémenté. 


Le programme reprend alors le cycle initial : recherche d'un point non exploré 
et éteint. et ainsi de suite jusqu’à ce que tout le dessin soit exploré. 


Signalons que l'exploration d'une surface s'effectue par déplacement dans quatre 
directions (donc aucun déplacement en diagonale). 


Détermination du nombre de figures 


Le nombre de figures est le nombre d'objets indépendants, c'est-à-dire le nom- 
bre de groupes de points contigus, ces groupes n'ayant aucun point en commun. 
Ainsi la lettre i est composée de deux figures (le corps et le point). 


Ce module fonctionne comme le précédent, à ceci prêt qu'il effectue la re- 
cherche de surfaces de points allumés au lieu des points éteints. Autres diffé- 
rences, la rencontre d'un bord est assimilée à celle d'un point éteint et les 
déplacements, durant la recherche peuvent s'effectuer en diagonale. 
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En fait, ces deux modules sont assez identiques et auraient pu être regroupés 
en un seul mais nous avons préféré, dans un souci de clarté, réaliser deux parties 
distinctes. 


Détermination du centre de gravité, 
du nombre de pointes et d’angles 


Les coordonnées du centre de gravité sont calculées sous forme de fractions 
de la largeur et de la hauteur de l’objet, elles ne dépendent donc pas de la position 
de cet objet dans le cadre. Ce centre est rapporté au système dont l'axe des X est 
horizontal et tangent au bord inférieur de la figure, et dont l’axe des Y est vertical 
et tangent au bord gauche de cette même figure. 


Tout point qui est adjacent à un seul point est, par convention, une “pointe”, 
ainsi un À majuscule possédera deux pointes (les deux jambes). 


Enfin un angle est caractérisé par trois points adjacents non alignés. 


Lorsque l'utilisateur trace un objet dans le but de le faire reconnaître par le 
logiciel, celui-ci le compare à chacun des objets en mémoire (module reconnais- 
sance de l'objet tracé). Pour chaque objet, critère par critère, l'écart entre celui-ci 
et l'objet tracé est calculé, puis la somme des écarts (affectés de coefficients 
d'importance) est effectuée. L'objet ayant obtenu la plus petite somme est consi- 
déré comme l'objet le plus ressemblant, il est affiché, ainsi que le pourcentage de 
ressemblance. 


RS 


je 
# 


“4 
£ 
en 


. 


RS 


es 
pave 12346784 et la touche espace 
pour: comnuter le crayon : 

leve B = baisse G=gomne 
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reconnu 


J ‘e 
essemblance=z 71 % 





RECFORM 2 et 3 : l'option “Entrée d'un nouvel objet” a été choisie. Cet 
objet contient 1 pointe, 1 trou, 3 figures indépendantes 
et 4 angles. Malgré la déformation de l'objet, celui-ci est 
reconnu. 


Précisons la façon dont cet écart entre deux objets est calculé : soit l'objet 1 
possédant NTROUS1 nombre de trous, NPOINTES1 nombre de pointes, 
NFIGURES1 nombre de figures, NANGLEST nombre d’angles, et un centre de 
gravité de coordonnées GX1 et GY1. De même l'objet 2 possède NTROUS2 nom- 
bres de trous, NPOINTES2 nombre de pointes, NFIGURES2 nombre de figures, 
NANGLES2 nombre d’angles, et un centre de gravité de coordonnées GX2 et 
GY2. L'écart entre l’objet 1 et l'objet 2 est alors calculé pour chaque critère : 


ECART (NTROUS)=ABS(NTROUS1-NTROUS2) 
ECART (NPOINTES)=ABS(NPOINTES1-NPOINTES2) 
ECART (NFIGURES)=ABS(NFIGURES1-NFIGURES2) 
ECART (NANGLES)=ABS(NANGLES1-NANGLES2) 
ECART (G)=ABS(GX1-GX2)+ABS(GY1-GY2) 


Ensuite l’écart total entre les deux objets est obtenu en effectuant la somme des 
écarts, ceux-ci étant affectés de coefficients relativisant leur importance, arbi- 
traires, ils ont été déterminés par l'expérience, d'autant que les différents écarts 
ne sont pas des grandeurs de même nature, donc : 


ECARTtotai =  9*ECART(NTROUS) + 9*ECART(NPOINTES) + 
9*ECART(NFIGURES) + 2*ECART(NANGLES) + 30*ECART(G) 
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reconnu :malson 
8e 





RECFORM 4 : l'identification de l'objet de la fenêtre de gauche a bien 
lieu (fenêtre de droite), et cela malgré le fait que la mai- 
son ne soit pas exactement identique au modèle, et 
qu'elle ait été tracée à l'envers. 


reconnu :carre 
188 % 





RECFORM5 : identification à 100 % de ce carré, malgré la modifica- 
tion d'échelle. 
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PRINCIPALES VARIABLES 


ntrous(i) nombre de trous de l’objet i 

ntrous nombre de trous de l’objet analysé 

npointes (i) nombre de pointes de l’objet i 

npointes nombre de pointes de l’objet analysé 

nfigures(i) nombre de figures indépendantes de l'objet i 

nfigures nombre de figures indépendantes de l'objet analysé 

nangles(i) nombre d’angles de l'objet i 

nangles nombre d’angles de l'objet analysé 

gx(i) et gy(i) coordonnées du centre de gravité de l'objet i 

gx et gy coordonnées du centre de gravité de l'objet analysé 

nom (i) nom de l’objet i 

point(i) état de chaque point i de l'objet analysé 

pointm(i) sauvegarde de ces états (l'analyse étant susceptible de 
les modifier) 

chemin(i) mémorisation du chemin (points i) explorés durant la 
recherche du nombre de trous ou de figures indépen- 
dantes. 

pointc(i, 143) mémorisation des 144 points de l'objet i 


10 REMRHHEEHEREEEEHEÉÉEEEEEEE 


28 REN RECFORM (T. L.-A.) 
30 REMAEHHEREEREEEEEHEHEEE 


80 DEFINT a-2 

90 DEFREAL e,q 

108 SYMBOL 248,126,255,295,295,255,255,255,124 

118 DIM dep(4) ,point (196) ,pointe (196) ,paranf (5) ,chenin(144) 
128 DIN caract$(1} ,depB(7) 

138 DIN ntrous (48) ,npointes (4) ,nfiqures (40) ,nangles (40) ,noa$ (48) 
148 DIM gx (40) ,gy (40) ,pointc (48,143) 

158 dep8(@)=-14: dep8(1}=-13: dep8(2)=1:dep8(3)=15 

168 dep8(4)=14:dep8(5)=13:dep8(b)=-1:dep8(7)=-15 

178 haut=@:bas=2 

188 gauche=3:droite=1 

198 arret=4 

208 depihaut)=-14: dep (bas)=14 

218 dep(gauche)=-1:dep(droite)=1 

228 eteint=8:alluse=1 

238 inexplore=@:explore=3:bord=4 

248 caract$(alluse)=CHR$(240):caract$(eteint)=" * 

258 leve=l:baisse=0:goaae=2 

268 crayon$(leve)="L" 


RECONNAISSANCE DE FORMES | 39 


278 crayon$(baisse)="B" 

288 crayon$(gosse)="6" 

298 ox=5:0y=4:0x1=23:0y1=4 
J08 feraee=f:ouverte=1 

318 FOR i=8 TO 13 

328 FOR i0=@ TO 182 STEP 182 
330 point (i+i@)=bord 

348 NEXT if 

358 NEXT i 

368 FOR i=14 TO 168 STEP 14 
370 FOR i@=8 TO 13 STEP 13 
380 point (i+i@)=bord 

398 NENT i0 

408 NEXT i 


440 NINDOW#0,2,39,19,24 

450 WINDOW#2,24,35,5,16 

468 WINDOW#5,6,17,5,16 

470 LOCATE#H,9,1:PRINT#1,STRING$ (24,143); 

488 LOCATE#1,9,3:PRINT#1, STRING$ (24,143); 

498 LOCATE#1,23,4:PRINT#1 ,STRING$ (14,287); 

508 LOCATE#1,23,17:PRINT#1,STRING$ (14,207); 

518 LOCATE#1,5,4:PRINT#1,STRING$ (14,207); 

528 LOCATE#1,5,17:PRINT#1,STRING$ (14,287); 

530 FOR x0=5 T0 23 STEP 18 

548 FOR x=8 TO 13 STEP 13 

590 FOR y=4 TO 16 

568 LOCATE#I ,x+x0,y:PRINT#1,CHR$ (287); 

570 NEXT y 

588 NEXT x 

590 NEXT x0 

608 LOCATE#1,8,2:PRINT#1,CHR$ (143); 

618 LOCATE#1,33,2:PRINT#1,CHR$ (143); 

628 LOCATE#1,8,1:PRINT#1,CHR$ (214); 

b3ù LOCATE#I,33,1:PRINT#1,CHR$ (215) ; 

648 LOCATE#1,8,3:PRINT#1 ,CHR$ (213) ; 

658 LOCATE#1,33,3:PRINT#1 ,CHR$ (212); 

668 LOCATE#1,9,2:PRINT#1, "RECONNAISSANCE DE FORMES"; 
678 LOCATE#,1,18 

688 FOR i=1 TO 8:PRINT#I,STRING$ (48,143); :NEXT i 
698 CLS 

700 REMHBEREREEEREEEEEREEEREEENEE 

718 REM senu et boucle principale 

120 REMEBEEEHENENEEREEEEEEEEEEEEEE 

738 PRINT " Identification d'un objet ------ > 1" 
748 PRINT " Entree d'un nouvel objet ------- } 2° 


40| I.A. SUR AMSTRAD CPC 


759 PRINT “ Liste des objets --------------- ÿ 3" 
768 PRINT " Sauvegarder la base d'objets ---} 4" 
778 PRINT " Charger une base d'objets ------ ». 4" 


788 choix$=INKEYS$ 

798 IF choix#="1" THEN 869 

808 IF choix$="2" THEN 938 

818 IF choix$="3" THEN 1008 

828 IF choix#$="4" THEN 2910 

830 IF choix$="5" THEN 3128 

848 G6OTO 788 

858 REM--- reconnaissance d'un objet --- 

868 CLS 

878 IF nobjets=@ THEN PRINT "lapossible : pas d'objets en aesoire":607T0 730 
888 CLS:60SUB 1188:REM dessin de l'objet 

890 GOSUB 1380:REM analyse des caracteristiques de l'objet 
908 GOSUB 2268:REM recherche de l'objet le plus resseablant 
918 GOSUB 2798:REM re-initialisation graphique 

928 GOTC 730 

938 REN--- entree d'un nouvel objet --- 

940 CLS:60SUB 1180:REM dessin de l'objet 

950 GOSUB 1508:REM analyse des caracteristiques de l'objet 
968 GOSUB 2450:REN enregistresent du nouvel objet 

978 GOSUB 2790:REM re-initialisation graphique 

988 60TO 730 

990 REM--- liste des objets --- 

1688 IF nobjets=0 THEN PRINT"Iapossible:pas d'objets en aesoire":607T0 738 
1818 FOR objet=@ TO nobjets-1 

1028  GOSUB 2718:PRINT "Nos de cet objet : "snoa$lobjet) 
1030 INPUT "Pour continuer, appuyez sur CENTER)" ,rep#:CL5#2 
1848 NEXT objet 

1450 G0TO 738 

1060 REMEHHENEEEEEREEEHEEEEEEEREEEEEREEREEFEREEE 


1188 PRINT" Tracez un objet avec les touches du" 

1118 PRINT" pave 12346789 et la tauche espace" 

1126 PRINT" pour cosmuter le crayon :" 

1138 PRINT" L = leve B = baisse 6=goase" 

1140 x=1:y=l:xa=1:ya=lippoint=15:papoint=15:etat=leve:dir$="" 
1150 MHILE dir$C}CHR$(13) 

1168 REM---test clavier--- 

1178 dir$="":dep=@:dir$=INKEYS$ 

118@ IF dir$=" " THEN etat=etat+{:IF etat=3 THEN etat=0 
1190 crayon=etat 

1288 IF dir$="8" THEN dep=dep8 (8) 

1218 IF dir$="9" THEN dep=dep8{1) 

1228 IF dir$="6" THEN dep=dep8 (2) 
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1230 IF dir$="3" THEN dep=dep8(3) 

1248 IF dir$="2" THEN dep=depB(4) 

1250 IF dir$="1" THEN dep=dep8(5) 

1268 IF dir$="4" THEN dep=depB(é) 

1270 IF dir$="7" THEN dep=dep8(7) 

1288  ppoint=ppoint+dep 

1299 REM------------------ 

1380 IF point (ppoint)=bord THEN ppoint=ppoint-dep 
1319 IF crayon=baisse THEN point (ppoint}=alluse 
1328 IF crayon=goame THEN point (ppoint)=eteint 
1350 IF cligno=@ THEN cligno=! ELSE cligno=@ 
1348  y=INT((ppoint-1)/14):x=ppoint-14#y 

1358  LOCATE#I ,ox+x ,oy+y 

1368 IF cligno=@ THEN PRINT#I,crayon$(crayon);:60T0 1380 
1370  PRINT#I,caract$ (point (ppoint}); 

1388 LOCATE#{I,0x+xa,0y+ya 

1390 FOR teaps=1 TO 108:NEXT teaps 

1488  PRINT#I,caract$ (point (papoint)}); 

1418  papoint=ppoint:xn=x:yn=y 

1428 WEND 

1438 CLS 

1448 LOCATE#I ,ox+x,0y+y:Km=x: yA=Y 

1458 PRINT#I ,caract$ (point (ppoint}): 

1468 RETURN 

1479 REM===========2=22==22=22==2=222==22=2=2=2=2=2=2=2- 
1480 REM analyse des caracteristiques de l'objet 


1538 ntrous=0:pt=0 

1548 60SUB 2640:REN transfert de la figure dans un tableau de travail 
1558 ppoint=15 

1568 WHILE pointa(ppoint)}inexplore AND ppoint{?181 
1378  ppoint=ppoint+l 

1588 WEND 

1590 IF ppoint=181 THEN 1730 

1688 surface=trou 

1618 cheain(pt)=ppoint:pt=pt+i:pointa(ppoint}=explore 
1628 dep=arret 

1638 FOR dir=8 TO 3 

1849  point=pointa(ppointtdep(dir)} 

1650 IF point=bord THEN surface=ouverte 

1668 IF point=inexplore THEN dep=dep{dir) 

1878 NEXT dir 

1688 IF dep{>arret THEN ppoint=ppoint+dep:60T0 1618 
1698 IF pt{>@ THEN 1728 

1708 IF surface=trou THEN ntrous=ntrousti 
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1550 
-lippoiat=chemin(pt):60T0 1620 


1766 nfigures=Q:pt=0 

1770 GOSUB 2648:REM transfert de la figure dans un tabieau de travail 
1788 ppoint=15 

1798 WAILE pointe(ppoint}£railume AND ppointé?il 

1888  ppoint=ppointti 

1818 WEND 

1828 IF ppoint=181 THEN 1978 

1838 chemin(pt)=ppointipt=pttlipointmtppointi=explore 

1848 dep=arret 

1850 FOR dir=8 TO 7 

1868  point=pointæ(ppoint+depB(dir)) 

1870 IF point=aliune THEN dep=dep8(dir) 

1888 NEXT dir 

1898 IF dep£>arret THEN ppoint=ppoint+dep: 6010 1838 

1980 IF pt{>0 THEN 1938 

1918 nfigures=nfiguresti 

1928 GOTO !780 

1936 pt=pt-i:ppoint=chenin(pt}:6010 1840 

1940 REM--------------"- "eee 
inoe REN determination du centre et du nombre de pointes et d'angies 
1968 REM------------------"--" "eee 
1970 npointes=Q:nangles=8 

1988 xain=100:ynin=100:xmax=@: ynax=@inpoints=0:gx=0:gy=0 

1998 GOSUB 2648:REM transfert de la figure dans un tableau de travail 
20808 FOR x=1 TO 12 

2818 FOR y=1 TD {2 

2020 ppoint=14#y+x 

2034 IF pointa(ppoint}{>alluse THEN 2178 

2840 IF x<xsmin THEN x#in=x 

2450 IF x)xaax THEN xmax=x 

2860 IF y<yain THEN yain=y 

2878 IF y>ysax THEN yaax=y 

2088 gx=gx+x:gy=Qy+y 

2890 npoints=npoints+i 

2188 nvoisins=@:adir (4)=0:adir (1)=0 

2118 FOR dir=@ TO 7 

2128 point=pointa(ppoint+depB(dir)) 

2130 IF point=alluse THEN adir(nvoisins)=dirinvoisins=nvoisinsti 
2148 NEXT dir 

2158 IF nvoisins=1 THEN npointes=npointes+i 

2168 IF nvoisins=2 AND adir(1)-adir (8)€}4 THEN nangles=nanglesti 
2178 NEXT y 

2188 NEXT x 
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2198 IF npoints=8 THEN gx=8:gy=@: RETURN 

2208 IF xaax=xmin THEN gx=8 ELSE gx=(gx/npaints-xsin)/(xaax-xain) 
2218 IF yaax=yain THEN gy=8 ELSE gy=(gy/npoints-yain)/(yaax-yain) 
2228 RETURN 

2230 REM===========2===2==22=2222=22=222222= 

2248 REN reconnaissance de l'objet trace 


2268 ecartain=1088 

2276 FOR objet=@ T0 nobjets-1 

2288  ecart=9#ABS(ntrous{objet)-ntrous) 

2298  ecart=ecart+9#ABS(nfigures(objet)-nfigures) 

2388  ecart=ecart+9#ABS Inpointes(objet)-npointes) 

2318  ecart=ecart+2#AB5 (nangles (objet) -nangles) 

2328  ecart=ecart+38# (ABS (gx (objet}-gx)+ABS(gy(objet)-gy)) 
2338 IF ecart(ecartain THEN objetbis=objet:ecartain=ecart 
2348 NEXT objet 

2338 global=9#ntrous+9#nfigurest9#npointes+2#nangles+é#(gx+gy) 
2368 ressesblance=100#(1-ecartain/global) 

2378 REN---affichage de l'objet reconnu--- 

2388 objet=objetbis:G60SUB 2710 

2398 PRINT'objet reconnu :";noa$(objetbis) 

2408 PRINT'Resseablance=";resseablance; "1" 

2418 RETURN 

2428 REM==========2==2=22222=222=2=2=2=2=2- 

2438 REN enregistresent du nouvel objet 


2458 ppoint2=@ 

2468 FOR y=1 TO 12 

2478 FOR x=1 TO 12 

2488 ppoint=14#y+#x 

2498 pointc{nobjets,ppoint2)=point {ppoint)} 
2588 ppoint2=ppoint2+1 

2514 NEXT x 

2520 NEXT y 

2538 ntrous (nobjets) =ntrous 

2548 npointes(nobjets)=npointes 

2550 nfigures (nobjets)=nfiqures 

2568 nangles (nob jets) =nangles 

2570 gx(nobjets)=gx:gy(nobjets)=gy 

2588 INPUT "Nos de ce nouvel objet";noaf$ (nobjets) 
2598 nobjets=nobjets+1 

2688 RETURN 


2619 REM=======2222=2222=222222225222222222232222222322222E 
2628 REN transfert de la figure dans un tableau de travail 
2438 REM===========222=2222==22222222222222222222222222222 


2848 FOR ppoint=® TO 195 
2658  pointa(ppoint)=point (ppoint) 
2668 NEXT ppoint 
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2678 RETURN 


2718 LOCATE#S,1,1 

2728 FOR ppoint=@ TO 143 

2738 IF pointe (objet ,ppointi=alluee THEN PRINT#2,CHRS(240);ELSE PRINT#2," "; 
2748 NEXT ppoint 

2758 RETURN 

2768 REM=======222=22s22sssseseessessesssszs2esssze=2z2szesesessessszz 
2770 REM effacesent de l'affichage graphique et du tableau correspondant 


2798 INPUT "Pour continuer, appuyer sur CENTER)" ,repf 
2888 FOR x=1 TO 12 

2819 FOR y=1 TO 12 

2828  ppoint=14#y+x 

2838 point ippoint)=eteint 

2840 NEXT y 

2858 NEXT x 

2868 CLS:CLS#2:CLS#3 

2870 RETURN 

2888 REM==========2==2=2=2=2=2=2=22=227 
2898 REM sauvegarde de la base d'objets 


2918 IF nobjets=8 THEN PRINT "Ilapossible:pas d'objets en aesoire":RETURN 
2928 INPUT "Noa de fichier";noa$ 

2930 OPENOUT noaf 

2948 PRINT#9,nobjets 

2950 FOR objet=@ T0 nobjets-1 

2968  PRINT#9,nonf {objet} 

2978 PRINT#9,ntrous(objet) 

2988  PRINT#9,npointes (objet) 

2990  PRINT#9,nfigures (objet) 

3808  PRINT#9,nangles (ob jet) 

3018 PRINT#9,gx objet} 

3928  PRINT#9,gy(objet) 

3038 FOR ppoint=@ TO 143 

3040 PRINT#9, pointe (objet ,ppoint) 
3050 NEXT ppoint 

3860 NEXT objet 

3070 CLOSEOUT 

3080 G0TO 730 


3188 REM lecture d'une base d'objets 
3119 REM========222222222222ssssssses 
3128 INPUT "Nos de fichier";nos$ 
3138 OPENIN nos$ 
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3140 INPUT#9 ,nobjets 
3158 FOR objet=8 TO nobjets-i 


3168 
3170 
3180 
319 
3200 
3218 
3220 
3230 
324 
3250 


INPUT#9 ,noa$ (ob jet) 
INPUT#9 ,ntrous (objet) 
INPUT#9 ,npaintes (objet) 
INPUT#9 ,nfigures (objet) 
INPUT#9 ,nangles (ob jet) 
INPUT#9,gx (objet) 
INPUT#9,gytobjet) 
FOR ppoint=@ TO 143 

INPUT#9 ,pointc(objet ,ppoint) 
NEXT ppoint 


3268 NEXT abjet 
3278 CLOSEIN 
3280 G0TO 758 
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CHAPITRE 2 
RECONNAISSANCE DE LA PAROLE 


QU'EST-CE QUE C’EST ? 


Le reconnaissance de la parole (Rpa) est, avec la reconnaissance de formes, 
un des domaines les plus ouverts en matière d'intelligence artificielle. Pourquoi ? 
Tout simplement parce que les applications industrielles y sont aussi promet- 
teuses que variées. Et qui dit industrie dit argent, nerf de la guerre en recherche 
théorique, tout spécialement aux US où le bénévolat est aussi rare que les sub- 
ventions gouvernementales. 


Un rapport du Stanford Research Institute (1979) estime que le marché de la 
parole devrait passer de $100 millions en 1984 à $250 millions en 1990. De plus, 
ce marché pourrait exploser dans la décennie suivante pour peu que le rapport 
performances/coût devienne suffisamment élevé. 


On assisterait alors au même phénomène que celui que nous vivons avec la 
micro-électronique et à un degré moindre, avec la micro-informatique. 


Autant dire que les investisseurs surveillent d’un regard avide ce marché et que 
les recherches s'y développent en quantité et en qualité. 


Dans un contexte d’euphorie, les réussites foisonnent et nous en citerons 
quelques-unes parmi les plus spectaculaires. 


Avant d'aborder les principaux domaines de recherche en reconnaissance de 
la parole, c'est-à-dire les principaux domaines d'applications industrielles il convient 
de revenir une fois de plus sur “l'esprit” qui fonde la reconnaissance de la parole. 


Nous l'avons vu, la reconnaissance de la parole intervient typiquement au ni- 
veau PERCEPTION du processus de l'intelligence artificielle. Pourtant, en aucun 
cas ce terme de perception ne signifie “superficiel” : les mécanismes qui guide la 
reconnaissance de la parole chez l'homme sont parmi les plus complexes et les 
plus difficiles à imiter, au même titre que la reconnaissance d'images. 
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LES DOMAINES D’APPLICATIONS 


Ils sont nombreux et prometteurs. Si la plupart restent cantonnés aux domaines 
de la recherche (probablement plus pour longtemps), certains ont fait récemment 
une entrée remarquée dans notre quotidien. Parmi les projets qui müûrissent dou- 
cement dans les laboratoires de recherche et ceux déjà opérationnels, citons 
quelques exemples : 


entrée de données (scientifiques, bancaires, etc.) 
identification de personne 

renseignements automatisés (téléphoniques ou autres) 
appareils domestiques répondant à la voix 
automobiles 

jeux électroniques 

robotique 

assistance aux handicapés 


* * * * *+ * * * 


LES SYSTÈMES EXISTANTS 


Les systèmes de reconnaissance de la parole disponibles aujourd'hui ont été 
pour la plupart mis au point soit par de grands groupes industriels (preuve s’il en 
était besoin de l'avenir de la reconnaissance de la parole), soit par les universités. 
Citons : 


* HEARSAY : premier système de reconnaissance de la parole conti- 
nue 

* DRAGON : fondé sur le modèle de Markov (75) 

* LPARS : (MIT) reconnaisseur de phrases sans étape phoné- 
tique, 
décodeur statistique d'IBM 

* HWIN: très élaboré du point de vue des contraintes linguis- 
tiques 

* MYRTILLE : système français pour interrogation d'un standard au- 
tomatique. 

* ESOPE : système français, dialogue homme-machine 


Que le premier constructeur d'ordinateurs (IBM) éprouve le besoin d'être pré- 
sent dans les créneaux de la reconnaissance de la parole doit être considéré 
comme un signe révélateur de l'avenir industriel de cette branche de l'intelligence 
artificielle. 


L'ÉTENDUE DU PROBLÈME 


La principale difficulté en reconnaissance de la parole réside dans la reconnais- 
sance de la parole continue. En effet, reconnaître des mots isolés ne présente 
plus guère de problèmes, compte tenu des progrès récents et spectaculaires de 
la micro-électronique dans ce domaine. A telle enseigne que les applications in- 
dustrielles de ce cas particulier de la reconnaissance de la parole foisonnent dans 
un grand nombre de secteurs. Citons pour mémoire celui de l'automobile avec ces 
nouveaux modèles désormais capables d'obéir à des ordres simples tels que : 
“OUVRE PORTE” ou “ALLUME PHARES”... Ces systèmes font essentiellement 
appel à l'électronique et très peu, voire pas du tout, à l'intelligence artificielle. 
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Aussi, n’en parlerons-nous pas. Pas plus que nous ne parlerons de la toute pre- 
mière étape qui intervient dans le processus de reconnaissance de la parole : le 
traitement du signal. 


Cette étape, extrêmement complexe, fait appel à des disciplines comme l'élec- 
tronique (saisie du son, filtrage, échantillonnage, etc.) et l'algorithmique (série de 
Fouriers, compression, etc.) mais très peu à l’heuristique. Elle n’a donc pas sa 
place dans un ouvrage traitant de l'intelligence artificielle. 


En fait, on peut parfaitement admettre de faire de la reconnaissance de la parole 
sur un micro-ordinateur comme l’Amstrad sans disposer d’un organe de percep- 
tion des sons : on entrera directement les “sons”, c'est-à-dire les phonèmes au 
clavier si le programme est capable d'effectuer une analyse phonétique, ou des 
mots si les compétences du programme ne démarrent qu'à l'analyse syntaxique 
ou sémantique. 


Par exemple on entrera cette suite de syllabes au clavier : 


“l/è/bi/in/mon/am/stra/de” 


Dans un premier temps, le programme devra reconnaître des mots contenus 
dans son lexique de base : 


“il est bien mon Amstrad” 


Puis il vérifiera la syntaxe de la phrase, avec retour en arrière en cas d'anomalie 
(syntaxe incorrecte). Le programme SYNTAX présenté plus loin traite plus parti- 
culièrement cet aspect du problème. 


Ensuite, le programme pourra effectuer une analyse sémantique des mots 
constituant la phrase, pour en comprendre le sens. Le mot Amstrad fait par exemple 
référence à un des micro-ordinateurs les plus doués de sa génération. 


Le programme SEMAN, également proposé dans cet ouvrage, aborde cet as- 
pect de la reconnaissance de la parole. Enfin, un programme exhaustif de la 
reconnaissance de la parole pourra s'intéresser au contexte pour réinterpréter 
éventuellement le sens de la phrase. 


Quant au logiciel PHRASE que vous trouverez également parmi les exemples 
d'applications de reconnaissance de la parole sur Amstrad, il analyse le sens de 
la question que vous lui posez et sélectionne la réponse dans une liste de phrases 
que vous aurez saisies préalablement. 


LES ÉTAPES 


Comme nous venons d'en avoir un aperçu, la parole peut être analysée à dif- 
férents niveaux. Seul le processus complet, incluant tous les niveaux permet par 
une analyse exhaustive, d'espérer un résultat fiable, ou du moins pas trop mau- 
vais. 
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On distingue cinq étapes : 





Programme 







Phonologique : le/c/h/i/e/n/e/s/t/g/rlo/s — 
reconnaissance des pho-|le/chi/in/è/gro 
nèmes 







Lexicale : le/chi/in/è/gro — 
reconnaissance des mots |(le)/(chien)/(est)/(gros) 













Syntaxique : (le)/(chien)/(est)/(gros) — 
reconnaissance des /le chien est gros/… 
phrases 












Sémantique : chien <=> animal, 4 pattes, .… 
reconnaissance du sens du | gros <=> poids plus lourd que | Phrase 
message la normale 

















Contextuelle : lle chien est gros/c'est un bon fu- 
reconnaissance du sens|sil/— 

dans le contexte dans ce contexte, chien ne peut 
être un animal : itération à l'étape 
précédente. 

















LES STRATÉGIES 


Comme pour la reconnaissance de formes, il existe deux grandes familles de 
méthodes de reconnaissance de la parole : les méthodes structurelles et les mé- 
thodes statistiques. Seuls les systèmes se réclamant des deux à la fois parvien- 
nent à un certain niveau d'efficacité. Pour notre part, nous allons uniquement nous 
intéresser aux méthodes structurelles : l'aspect statistique du problème, quoique 
très important, reste peu spectaculaire et se prête mal à la vulgarisation. D'autre 
part, l'approche statistique en intelligence artificielle varie peu d'un domaine à 
l’autre : ce que nous avons déjà dit dans le chapitre sur la reconnaissance de 
formes reste vrai ici. Signalons simplement qu'une des méthodes statistiques (uti- 
lisée dans le décodeur statistique linguistique d'IBM) consiste à rechercher dans 
un lexique de mots, celui dont le signal (un son peut toujours être représenté sous 
forme de signal) se rapproche le plus du signal émis par un locuteur. 


Le problème posé par la reconnaissance de la parole s'inscrit exactement dans 
la catégorie des problèmes d'intelligence artificielle. Qu'on en juge plutôt en énu- 
mérant ses composantes, que l'on retrouve en reconnaissance. de formes, dans 
les systèmes experts, etc. 


* Les données (phonèmes) sont incomplètes et erronées car les locuteurs sont 
des hommes faillibles. 


Ex. : “t'as d'beaux zieux t'sais” au lieu de “tu as de beaux yeux tu sais”. 
* Les choix sont non déterministes : tout choix effectué à une étape donnée peut 


être remis en cause par une impossibilité à l'étape suivante. (erreur — apprentis- 
sage — retour arrière). 
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Exemple d'erreur phonétique détectée à l'étape sémantique (dialogue à lire avec 
l'accent vosgien) : 


“_ MirzA, elle a fait des PEUtits 
— dèCHA ? (déjà) 
— non des chiens” 


* Le problème est du type combinatoire : compte tenu du droit à l'erreur du locu- 
teur, une suite de phonèmes peut être combinée d'un très grand nombre de fa- 
çons. De même, dans l'étape syntaxique, les phrases valides sont en nombre très 
élevé. 

Compte tenu de tous ces points, il est très intéressant d'aborder le problème de 
la reconnaissance de la signification d'un message au travers un modèle heuris- 
tique utilisant, comme pour les systèmes experts, une base de faits et une base 
de règles. 


Ce modèle, comprenant au moins les cinq étapes que nous avons citées, 
consistera en une stratégie de recherche de la solution optimale (pas nécessai- 
rement unique). Cette stratégie reposera sur une combinaison des différentes 
étapes (analyse phonétique, syntaxique, etc.), avec retours en arrière en cas d'’er- 
reur et itérations successives pour affiner la résolution trouvée. 

Le modèle le plus simple (sinon le plus plus efficace) est le modèle hiérarchique 
qui intègre la structure hiérarchique du message à reconnaître (phonèmes — mots 
— phrases — message). 


Modèle hiérarchique 


Analyse 
6 phonétique 4 
Analyse 
syntaxique 
Analyse 
sémantique 
Analyse du 
contexte 


Analyse 
prosodique 
mélodie 

rythme 
















52| 1.A. SUR AMSTRAD CPC 


La reconnaissance se fait toujours sur deux niveaux adjacents à la fois, ce qui 
facilite les retours en arrière d’un niveau. Les étapes dont donc exécutées deux à 
deux : phonétique et syntaxique, puis syntaxique et sémantique, etc. 


Le modèle multi-hiérarchique généralise l'approche précédente : toutes les 
étapes sont combinées deux à deux. 


honétique | 
Re" 3 Se 
Autres =] na TS Analyse 
analyses = syntaxique 









#7, 
\ 1 
K d. 


NS 





Ne 
Analyse du à A Analyse 
prosodique | — = j 7 CR pe 
(Ton) AT» ec 


ÈT 
tres nd 
Analyse du | # 
contexte 


Modèle multi-hiérarchique 











Le modèle distribué est piloté par une boîte programmable : selon le type de 
phrase, le locuteur, le contexte, la stratégie peut être adaptée en agissant sur ce 
“pilote”. Ce modèle fournit donc plus de souplesse que les deux précédents. 


Analyse 
phonétique 
Analyse du 
contexte 


Modèle pilote 













Analyse 


Autres À 
syntaxique 


analyses 















Analyse 


Analyse 
sémantique 


prosodique 
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L'ÉTAPE PHONÉTIQUE ET LEXICALE 


Il s'agit en fait d'une double analyse : phonétique et lexicale. Pour chaque pho- 
nème reçu par le système (par micro, clavier, etc.), une hypothèse est faite sur 
son orthographe ainsi que sur les liens qu'il possède avec les précédents pho- 
nèmes. Une recherche est effectuée dans un lexique pour tenter de rapprocher la 
suite de phonèmes d'un mot connu. Pour ne pas surcharger le lexique avec toutes 
les orthographes et prononciations différentes d'un mot (ex. : animal, animaux), 
on cherchera à établir des règles d'accord, de conjugaison, etc. 


règle 1 : <nom> + <suffixe al> + <pluriel> — <nom> + <suffixe aux> 
règle 2 : <adj> + <suffixe eau> + <féminin> — <adj> + <suffixe elle> 
règle 3 : <je> + <verbe> + <suffixe er> — <verbe> + <e> 

: <tu> + <verbe> + <suffixe er> — <verbe> + <es> 

: <il> + <verbe> + <suffixe er> — <verbe> + <e> 

: <nous> + <verbe> + <suffixe er> — <verbe> + <ons> 

: <vous> + <verbe> + <suffixe er> — <verbe> + <ez> 

: <ils> + <verbe> + <suffixe er> — <verbe> + <ent> 


Tous les mots de base n'entrant pas dans le cadre de ces règles simples devront 
être mis dans le lexique avec leurs variantes et leurs conjugaisons (pour les verbes). 
Ainsi le verbe être, irrégulier et donc trop isolé pour justifier une règle particulière 
à lui tout seul, sera mis dans le lexique sous les formes (être, suis, es, est, sommes, 
êtes, sont). On voit bien là l'intérêt de quelques règles lexicales : on parvient à 
diviser d'un facteur cinq à dix la taille du lexique. 


L'ÉTAPE SYNTAXIQUE 


Il s’agit là, à partir des mots identifiés pendant l'étape lexicale, de construire des 
phrases correctes du point de vue de la syntaxe. Ce qui signifie que cette étape 
s'occupe de vérifier que la suite des mots constitue bien une phrase respectant 
des règles de grammaire prédéfinies. La reconnaissance de la parole étant non 
déterministe (des erreurs peuvent se glisser dans la prononciation, etc.), cette 
étape va permettre de “remettre les pendules à l'heure” et d'éliminer parmi la liste 
de mots reconnus par l'analyse lexicale, ceux qui n’entrent pas dans le cadre d'une 
phrase reconnue comme telle. 


C'est donc la grammaire de l’analyseur syntaxique qui décidera de la validité de 
telle ou telle construction. En cas d’anomalie, deux hypothèses seront à prendre 
en considération : soit une erreur est apparue dans l'étape d'analyse phonétique, 
soit le locuteur a pris quelques libertés avec la grammaire. Pour choisir entre ces 
deux hypothèses, il faudra d'une part itérer l'étape précédente, d'autre part at- 
tendre l'étape sémantique. Toute la reconnaissance de la parole va consister (et 
c'est là l'objet d’une stratégie de la reconnaissance) à effectuer des allées et 
venues entre l'étape syntaxique et lexicale, entre l'étape sémantique et syn- 
taxique. 


Il existe trois types de grammaire : à états finis, à contexte libre et langage 
naturel. Le premier type s'adresse à des langages rudimentaires, par ex. : les 
langages de commande de machines (robots, machines à commandes numé- 
riques, etc.). Le second type concerne tous les langages artificiels (BASIC, CO- 
BOL, PASCAL, etc.). Le troisième type est la grammaire bien connue des écoliers. 
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On décrit une grammaire sous forme de règles. Voici un exemple très simple de 
grammaire. 


Règle 1 : <phrase> — <sujet> <verbe> <complément> 
Règle 2 : <sujet> — <article> <substantif> 

Règle 3 : <complément> — <article> <adjectif> <substantif> 
Règle 4 : <substantif> — <fromage> <souris> 

Règle 5 : <article> — <le> <la> 

Règle 7 : <verbe> — <mange> <boit> 


Il est possible de représenter cette grammaire sous une forme plus imagée. 





(Phrase) 
(sujet) (verbe) (complément) 
(article) (substantif) (verbe) (article) (adjectif) (substantif) 
le souris mange le bon souris 
la fromage bois la beau fromage 


Une phrase correcte du point de vue de la syntaxe sera : 
LA SOURIS MANGE LE BEAU FROMAGE 

Mais celle-ci le sera aussi : 
LA SOURIS BOIT LE BEAU FROMAGE 

ou encore 


LE FROMAGE MANGE LA BELLE SOURIS 
(on suppose que les règles d'accord font partie de la grammaire) 


Ainsi, la syntaxe ne permet pas d'éliminer les phrases correctes du point de 
vue de la syntaxe, mais qui n'ont aucun sens. Il faut pour cela faire intervenir 
l'étape suivante : l'analyse sémantique. 


L'ÉTAPE SÉMANTIQUE 


Le rôle de la sémantique est de relier les symboles (mots) aux concepts (signi- 
fications). Par exemple, on pourra avoir les concepts de JOIE, TRISTESSE, IN- 
DIFFÉRENCE. On reliera les mots “rire, jouer, bruit, gai” à la JOIE. Puis les mots 
“pleurer, mort, larme, triste” au concept de TRISTESSE. Enfin tous les autres 
mots du lexique au concept d'INDIFFÉRENCE. 
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Avec ces éléments très rudimentaires, on sera capable d'estimer si une phrase 
exprime l'un ou l’autre des sentiments désignés. Par exemple : 
“Je ris et je suis gai” fait référence à la JOIE. 
“Son père est mort et il pleure” fait référence à la TRISTESSE. 
“Il fait beau ce matin” fait référence à l'INDIFFÉRENCE. 


Certaines contraintes sémantiques seront introduites pour aider à la reconnais- 
sance. Par exemple une phrase ne pourra pas faire référence à plusieurs des trois 
concepts à la fois (TRISTESSE et JOIE, etc.). Une phrase comme “je ris et je 
pleure” sera considérée comme sémantiquement incorrecte avec ces hypothèses. 


Pour conclure, disons que les systèmes utilisant simultanément des contraintes 
sémantiques et syntaxiques sont encore très rares. 


LES AUTRES ÉTAPES 


Les deux autres étapes qui permettent d'affiner les résultats obtenus à ce stade 
sont : l'analyse du contexte et la prosodie. 


La première permet de relier les phrases entre elles pour faire ressortir le sens 
général du discours. Cela peut permettre de finir les phrases incomplètes ou de 
tenir pour négligeables celles qui jurent avec le reste du discours. 


Quant à la prosodie, elle consiste à interpréter le rythme, l'intensité et la mélodie 
de la phrase. Cette analyse permet de déterminer si une phrase est affirmative, 
interrogative, etc. ainsi que des sentiments : la joie, la colère. Ce dernier point 
peut donc permettre de vérifier certaines conclusions de l'analyse sémantique. 
Hélas, mille fois hélas, il est difficile, voire impossible de disposer sur un micro 
comme l’Amstrad des informations nécessaires à cette analyse. 


En guise de conclusion, disons que pour l'instant, il n'existe pas de systèmes 
élaborés tenant compte de tous les facteurs cités : nous ne doutons pas que c'est 
là la voie de l'avenir et que ce type de système, à analyses multiples, ne manquera 
pas bientôt de faire une entrée remarquée. 


PRÉSENTATION DU PROGRAMME 
SYNTAX GÉNÉRATEUR DE TEXTE 


COMMENT L'UTILISER 7? 


Ce programme génère des phrases en français, syntaxiquement et sémantique- 
ment correctes. Ces phrases sont fabriquées à partir de “phrases arborescentes”, 
créées par l'utilisateur et stockées dans des lignes DATA sous forme d’expres- 
sions contenant des chaînes de caractères, des parenthèses et des opérateurs 
(un exemple figure dans le programme de la ligne 740 à 800). Le logiciel évalue 
chaque expression (on pourrait aussi dire qu'il choisit un chemin dans chaque 
arbre), ce qui mène à la création d’une phrase. Les opérateurs sont : 


— la concaténation, notée +, qui mène, comme son nom l'indique, à la conca- 
ténation de deux ou plusieurs chaînes de caractères. 
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— le “ou aléatoire”, qui, appliqué à une série de chaînes de caractères, conduit 
le programme à choisir aléatoirement l’une d’entre elles. 


Ainsi l'évaluation de l'expression : 
(il est+(indispensable * primordial) +de+ (manger * boire)) 


Pourra mener à quatre résultats différents : 
il est indispensable de manger 
il est indispensable de boire 
il est primordial de manger 
il est primordial de boire 


Les copies d'écran 1 et 2illustrent ce mécanisme sur un exemple plus complexe. 


Les phrases arborescentes données en DATA ne sont bien sûr que des 
exemples, et peuvent être modifiées à votre guise, il vous faudra alors suivre 
quelques règles : 


— il n'y a pas d'opération prioritaire. Des parenthèses bien placées sont donc 
indispensables pour lever toute ambiguïté. Ainsi l'expression : 
(ce chat est+gris * tigré) 
est incorrecte car le programme ne sait pas laquelle des deux opérations (+ ou 
* ), il doit effectuer en premier. Il aurait fallu écrire par exemple : 
(ce chat est+{(gris * tigré)) 


— l'ensemble de l'expression doit être entouré de deux parenthèses, la dernière 
refermant la première : 
(ce chat “ ce chien)+(est blanc * est noir) 
est incorrecte car la seconde parenthèse referme la première, et la dernière re- 
ferme l'avant-dernière. Il aurait fallu écrire : 
((ce chat “ ce chien)+(est blanc * est noir)) 


— d'une manière générale, à toute parenthèse ouvrante doit correspondre une 
parenthèse fermante (comme dans une expression algébrique). 


Plus vous imbriquerez les niveaux de parenthèses et plus le nombre de phrases 
possibles sera élevé, on aboutit même rapidement à une véritable explosion 
combinatoire. 


Ce programme est inclus dans le programme “analyse psychologique” qui 
contient un grand nombre de phrases arborescentes. 


COMMENT ÇA MARCHE ? 


Ce programme saisit les arbres stockés en DATAs sous forme d'expressions 
alphanumériques et en extrait aléatoirement un chemin qui part du nœud initial et 
se termine à un des nœuds terminaux. 


Ce qui revient à évaluer l'expression alphanumérique composée de chaînes de 
caractères, de parenthèses et d'opérateurs (concaténation notée + et “ou aléa- 
toire” notée “). Ce genre d'expression n'est pas très différent des expressions 
algébriques de type basic ou pascal, seule la nature des opératiions et des don- 
nées changent. 
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L'évaluation d'une expression s'effectue par l'intermédiaire de trois piles : 


— une pile de données (qui contiendra donc des chaînes de caractères) ; 

— une pile d'opérateurs (+ et * ); 

— une pile dite exécution dans laquelle les données sont empilées en attente 
d'exécution d’un opérateur, l'opération “ou aléatoire” ne peut en effet être appli- 
quée que globalement à plusieurs chaînes de caractères (et non par évaluation 
deux à deux) de façon à conserver l’'équiprobabilité du tirage de chacune d’entre 
elle. Ainsi l'expression (A*“B*C*D) provoquera l'empilage dans cette pile de A, B, 
C et D puis le choix aléatoire (opérateur *) de l’une des quatre lettres. 


Voyons le processus global d'évaluation. L'analyse d’une expression est effec- 
tuée de gauche à droite selon les règles suivantes : 


— si une chaîne de caractères est rencontrée, elle est empilée dans la pile de 
données ; 

— si un opérateur ou une parenthèse ouvrante sont rencontrés, ils sont empilés 
dans la pile opérateur ; 

— siune parenthèse fermante est rencontrée, les chaînes de la pile de données 
sont dépilées une à une, puis empilées dans la pile exécution, et les opérateurs 
(que l’on peut mettre au singulier puisqu'ils sont toujours identiques à l'intérieur 
d'un même niveau de parenthèses) sont dépilés au même rythme que les chaînes 
de la pile donnée. Ce processus se répète jusqu’à ce qu’une parenthèse ouvrante 
soit rencontrée sur la pile opérateurs. L'opérateur peut alors être appliqué aux 
données de la pile exécution que l'on vide immédiatement. Le résultat est placé 
sur la pile de données. 


En remontant ainsi jusqu'à la première parenthèse ouvrante, la phrase est cons- 
truite et se trouve sur la pile opérante. I! ne reste plus qu'à l'afficher. 


Le processus d'évaluation que nous venons de décrire est, vous l’avez re- 


marqué, assez complexe, l'analyse montre sur un exemple, les différents états de 
trois piles durant cette évaluation. 


PRINCIPALES VARIABLES : 


pdo$(i) pile de données 
pop$(i) pile d'opérateurs 
pex$(i) pile d'exécution 


ÉVALUATION DE LA PHRASE ARBORESCENTE : 
(LE CHAT EST + (NOIR * GRIS)) 

PDO: 

POP: ( 

PEX: 

1 : empilage de ( 

PDO : LE.CHAT.EST 


POP : ( 
PEX : 
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2 : empilage de LE CHAT EST 


PDO : LE.CHAT.EST 
POP : ( + 
PEX : 


8 : empilage de + 


PDO : LE.CHAT.EST 
POP :( + ( 
PEX : 


4 : empilage de ( 


PDO : LE.CHAT.EST NOIR 
POP : ( + 
PEX : 


5 : empilage de NOIR 


PDO : LE.CHAT.EST NOIR 
POP:C. + (0% 
PEX : 


6 : empilage de * 


PDO : LE.CHAT.EST NOIR GRIS 
POP :( + ë 
PEX : 


7 : empilage de GRIS 


PDO : LE.CHAT.EST NOIR 
POP:( + 
PEX : GRIS 


8 : GRIS va de PDO à PEX 
et “ est dépilée 


PDO : LE.CHAT.EST 
POP 5 
PEX : GRIS NOIR 


9 : NOIR va de PDO à PEX 
et (est dépilée 


PDO : LE.CHAT.EST GRIS 
POPEC e <# 
PEX : 


10 : * est appliqué à GRIS et NOIR, supposons que le résultat (aléatoire) soit 
GRIS, GRIS est alors placé sur PDO 


PDO : LE.CHAT.EST 
POP : ( 
PEX : GRIS 
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11 : GRIS va de PDO à PEX 
+ est dépilé 


PDO : 
POP : 
PEX : GRIS LE.CHAT.EST 


12:(est dépilée . 
LE.CHAT.EST va de PDO à PEX 


PDO : LE.CHAT.EST.GRIS 
POP : 
PEX : 


13 : + est appliqué à LE.CHAT.EST et GRIS 
le résultat final (POP et PEX étant vides), est placé sur PDO 


PDO est la pile de données 
POP est la pile opérateur 
PEX est la pile exécution 


Pour éviter toute confusion, les différents mots d’une même donnée sont reliés 
par des points. 


BENERATEUR DE TEXTE SYNTAXIQUEMENT 
CORRECT ET SEMANTIQUEMENT COHERENT 


D'aucuns affiraent sans craindre une critique aoqueuse 

que l'intelligence electronique est 

a notre cerveau 

ce que le chemin de fer est au cheval . 

Pourtant , train au aachine a vapeur constituent des prolongements plus où aoins 
subtils 

de nos auscles rouges . 

Le traitement syabolique s'en prend directement aux arcanes du raisonnement 


Pour reconmencer, appuyer sur CENTER) 


Certains pensent 
que l'intelligence artificielle est 
a la satiere grise 
ce que la aecanisation est au travail aanuel . 
Pourtant , chemin de fer ou sachine a vapeur constituent des substituts 
de nos soyens physiques . 
L'IA s'en prend directesent aux principes de la pensee 


Pour recossencer, appuyer sur ENTER? 


Exemple 1 d'exécution de SYNTAX 
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GENERATEUR DE TEXTE SYNTAXIQUEMENT 


CORRECT ET SENANTIQUEMENT COHERENT 


D'aucuns affirsent sans craindre une critique aoqueuse 

que l'intelligence artificielle est 

au cerveau huaain 

ce que la aecanisation est a la force musculaire . 

Pourtant , chemin de fer ou aachine a vapeur constituent des substituts 
de nos capacites physiques . 

L'IA siaule etroitement les fonctions cerebrales 


Pour recoamencer, appuyer sur ENTER} 


Certains pensent 

que l'intelligence electronique est 

a notre cerveau 

ce que le chemin de fer est au cheval . 

Pourtant , chemin de fer ou chevaux vapeur sont des substituts 

de nos capacites physiques . 

Le traitesent sysbolique siaule etroitement les fonctions cerebrales 


Pour recoamencer, appuyer sur (ENTER? 


Exemple 2 d'exécution de SYNTAX 


OO REMAHEEREERERRRREEREE 

20 REN SYNTAX (T. L.-A,) 

30 REMHESEERREREEEEHERE 

40 REM---initialisation--- 

98 MODE 2:CLS 

68 DEFINT a-2 

78 DIN pdof (30) ,pop$ (30) ,pex$ (28) 

88 PRINT 'GENERATEUR DE TEXTE SYNTAKIQUEMENT" 
98 PRINT 

188 PRINT 'CGRRECT ET SEMANTIQUEMENT COHERENT" 
118 PRINT:PRINT 

128 REN---LECTURE D'UNE PHRASE ARBORESCENTE--- 

138 READ CH$ 

148 IF CH$="FIN" THEN PRINT: INPUT "Pour recommencer, appuyer sur €ENTER)" ,rep:PR 
INT:RESTORE: 6010 138 | 

158 d=0:0=0:e=0 

168 REM---RECHERCHE D'ERREURS DE PARENTHESES--- 
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176 FOR I=1 T9 LEN(CH$) 

188 IF MID(CHS,1,1)="{" THEN [1=11+i:6070 208 
198 IF MID$(CH$,1,1)=")" THEN [22724] 

208 MENT I 
210 IF [112 THEN PRINT ‘Erreur de parenthese":END 

LÉQIRENSE SEE SRE ESS SE SE SSSeeSE 

230 REM Creation d'une phrase aleataire 

248 REM a partir d'une phrase arborescente 

LB: REMSSSÉSS SES TESTS SE SES ES SEE 

268 FOR i=i TO LEN(cH$) 

270 car$=MID$(ch#,i,1) 

288 IF car$="}" THEN 35 

290 IF car${i"{(" AND car${;"+4" AND car$£i"#" THEN 330 

300 IF nat$é>"" THEN pdof(di=aotft" “imot$=""idedei 

316 popf(o}=car$:o=0ti 

320 6070 610 

336 not$=notficar$ 

348 GOTO 61 

90 IF aotfé?"" THEN pdo$(d)=aot$t" "inotf="":d=dti 

68 SOSUE 490 

70 op$=pop$(o-1):0=0-1 

388 GOSUE 698 

398 IF popf(o-i)}=op$ THEN 0=0-i:6070 368 

400 IF popf(a-1}{>"{" THEN PRINT "Erreur de parenthese":END 


4 


el 


À Led 


K 


418 0=0-1 

420 IF op$="#" THEN 580 

#30 REM------ 
449 REM execution de l'operateur "AJOUTER" 
458 REM note + 

AUD REM---------- 


478 pdoftd)="" 

488 FOR J=e-1 TO @ STEP -{ 

490  pdof(d)=pdof (d)+tpex$(j) 

Ja8 NEXT j 

310 d=dti 

Je8 e=0:REM vidage de La pile execution 

530 60T0 610 

J40 REM----------- "ee 
590 REM execution de l'operateur "QU ALEATOIRE" 
568 REN note # 

J78 REM---------- "ee 
580 pdo$id)=pex$ (INT (RND#E ) ) 

390 d=dti 

688 e=0 

618 NEXT i 

628 REM---affichage de la phrase aleatoire--- 
638 PRINT pdof (@) 

648 GOTO 138 
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BDD REM------- 
668 REM Dep:lage de la piie de donnees et 
670 RENM emgilage dans la pile execution 


696 pex$le)=pdof(d-i)ie=eti:d=d-i 

Fa8 RETURN 

TAG RENE E SEE ESSneen esse eSes 

728 REM Reservoir de phrases aleatoires 

FIQ RE 

748 DATA “{iCertains#Certaines sommites scientifiques#D'aucuns)+{{affirment+ {ave 
© convictiont(sans craindre une critiquet(mogueusersouvent agressive}))}}#(preten 
dentt{tranquiliementtsans coagieïe)}ipensenttestiment))" 

750 DATA “que l'inteiligencet{artificielletelectronique)+est)" 

768 DATA “{la notre cerveaut{au cerveaut/{hunaint# (de+(l ‘homneti'hoño sapiens})})} 
+ & la matiere grise)" 

770 DATA ice queti((la machine a vapeurtla mecanisation)test+{au muscleta la fo 
rce musculairetau travail manuel)}#le chemin de fer est au cheval}+,)" 

780 DATA "{(MaistPourtanttCela dit}+,+{(trainéchemin de fer)+ou+((machine atchev 
aux} +vapeur)}+{sont#constituenttrepresentent)+(dest{extensions+(prolongements+(p 
lus où moinst(sophistiquestsubtilstraffines)})#substituts);)" 

798 DATA “(de nost{{(moyenstpossibilitestcapacites! +physiques)+#muscles rouges)+. 
;# 

898 DATA “{iL'intelligence artificiellexL'IAkle traitement syabolique)+((s'en pr 
end directement auxtiarcanestprincines)+(du raisonnementtde la pensee))#{sinule 
etroitementt(les fonctions cerebralest(les conportements+(mentauxxhumains))}))}" 


818 DATA "FIN" 


PRÉSENTATION DU PROGRAMME SEMAN (DIALOGUE ET 
ANALYSE PSYCHOLOGIQUE) 


COMMENT L'UTILISER ? 


Ilest inutile d'être un spécialiste pour utiliser ce logiciel, il suffit de se plier à cette 
seule règle, au demeurant peu contraignante : 


Lorsque le message “VOUS:” apparaît, c'est à vous de taper “ce que vous 
voulez”, l'ordinateur vous répondra et un dialogue riche et varié s’établira entre 
vous et l'ordinateur. Le nombre de réponses possibles de la part de l'ordinateur 
est quasiment infini, mais des pans entiers du programme ne seront peut-être 
jamais utilisés si vous ne savez pas y accéder par une conduite intelligente du 
dialogue. Ce logiciel s'explore en effet un peu à la façon d’un jeu d'aventure et 
vous fera passer, nous l’espérons, de longues heures de détente. 


Pour votre gouverne, sachez que ce logiciel reconnaît de nombreux “gros” mots, 
présents sous forme codée dans le listing (censure oblige !) et détectera la plupart 
du temps les phrases incohérentes. || vous préparera alors une réponse “salée”. 
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Il nous faut maintenant parler de la face cachée de ce logiciel : il vous espionne 
et met en permanence à jour un tableau dont chaque élément mesure un des 
aspects de votre personnalité. À tout moment vous pouvez tout savoir sur celle-ci 
en tapant le mot “bilan”. Sachez toutefois que ce bilan sera d'autant plus précis et 
détaillé que vous aurez conversé avec des phrases longues et sensées. 


À tout sosent, vous pouvez avoir un bilan cosplet 

en tapant BILAN 

ORDINATEUR: bonjour! parlez-aoi de vous 

VOUS:? j'aine la vie et je suis joyeux 

ORDINATEUR: cela à au aoins le aerite d'etre positif 

VOUS:? et vous 

ORDINATEUR: nous soases la pour discuter de vous 

VWUS:? je crois que je suis syapathique 

ORDINATEUR: parlez-aoi de vos centres d'interets 

VOUS:? j'aise l'inforaatique 

ORDINATEUR: pour vous est-ce un sentisent eternel ? 

VOUS:? un sentinent ... pour les ordinateurs 
ORDINATEUR:pour vous est-ce un sentiaent incosprehensible ? 
VOUS:? l'informatique ne a'inspire que de l'interet 
ORDINATEUR: voila un domaine qui nous passionne tous les deux 
VOUS:? je te trouve reellement idiot 

ORDINATEUR: gardons notre calae 

VOuS:? J'insiste, tu es bete 

ORDINATEUR: Dh aoi,vous savez... 

VOUS:? hu 


ORDINATEUR:enchainez ... 

VauS:? il fait chaud et je suis fatigue 
CRDINATEUR:etes-vous La pour discuter du tenps? 
VOUS:? oui et non 

ORDINATEUR: que pensez-vous des OVNIS 

VOUS:? les OVNIS c'est du bidon 

ORDINATEUR: parlez-soi de votre personnalite 

VOu5:? je suis intelligent 

ORDINATEUR: parlez-noi de vous 

VOUS:? je suis fatique mais optiaiste 

ORDINATEUR: ca ira mieux le moins prochain 

VOUS:? et Le travail ... ah! le travail : 
ORDINATEUR: pour quoi ne pas creer votre propre entreprise ? 
VOUS:? ii faut de l'argent 

ORDINATEUR: l'argent ne fait pas le bonheur 

VQUS:? ben des fois ca aide ... à manger par exesple 
ORDINATEUR: faites-vous la cuisine? 

VOUS:? la cuisine ? bof 

ORDINATEUR: que pensez-vous des OVNIS 
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VOUS:? cette question vous obsede 
ORDINATEUR: nous sosses la pour discuter de vous 
VOUS:? uyjhtgfrendsuy jewdhgsf 
ORDINATEUR:aon clavier ne vous a rien fait 
VOUS:? uirehjgfsdiujrfediujrfed 

ORDINATEUR :elle est bien bonne'et celle la,vous la connaissez : pordkfe 
VOUS:? bilan 

joie: 23 

insouciance: 9 

optiaisse: 18 

egocentrisme: 20 

asour: 48 

avarice: 20 

pasitivisae: 4 

agressivite: 18 

VOUS:? aoi agressif ? tu a'enerves la ! 
ORDINATEUR:et la negaciation? 

VOuS:? bilan 

joie: 23 

insouciance: 9 

optiaisae: 18 

egocentrisme: 22 

amour! 37 

avarice: 22 

positivisae: 4 

agressivite: 28 

VOUS:? serde 

ORDINATEUR: ne me poussez pas a bout 

VOus:? si 

ORDINATEUR: je vous ecoute 


COMMENT FONCTIONNE-T-IL ? 


Le fonctionnement de ce logiciel passe par deux phases bien distinctes : 


— l'analyse de la phrase tapée par l'utilisateur, 
— la création d'une réponse. 


L'analyse de la phrase tapée par l'utilisateur est purement “sémantique” et ne 
passe par aucune analyse syntaxique. Cette seconde solution a été écartée d’'em- 
blée car les logiciels fonctionnant ainsi se contentent la plupart du temps de re- 
conjuguer les phrases tapées et conduisent rapidement à la lassitude de l'utilisateur. 


Avant d'entrer dans l'analyse elle-même, précisons la structure des “connais- 


sances” du logiciel, composée de six parties : 
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— une liste de “traits de caractères”, chacun étant accompagné de son contraire 
(lignes 650 à 690) ; 


— une liste de mots-clefs associés à des sujets : voiture, informatique, temps, 
amour, etc. (lignes 740 à 870). En fait ces mots sont souvent de simples racines, 
ce qui augmente l’étendu du vocabulaire connu ; 


— une liste de groupes de mots-clefs auquels sont associés des coefficients, 
précédés du numéro de trait de caractère auquel il se rapporte (lignes 150 à 600). 
Chaque groupe de mots est suivi des mots de sens opposé, leur coefficients étant 
inversés. Ces derniers n'apparaissent pas dans la liste, ils sont calculés après 
inversion durant la lecture des DATA ; 


— une liste de phrases arborescentes (dont le développement, comme dans le 
programme “générateur de texte”, peut aboutir à des milliers de phrases diffé- 
rentes, mais toujours cohérentes). Chacune de ces phrases est associée à un trait 
de caractère (ou état d'esprit) ; 


— une liste de phrases arborescentes, dont chacune est associée à un sujet 
abordé par l'interlocuteur humain ; 


— une liste de phrases arborescentes associées aux cas particuliers : relance 
lorsque le dialogue est trop neutre, réponse lorsqu'une phrase est trop courte, ou 
encore quand elle est incohérente. 


L'analyse de la phrase tapée par l'utilisateur 


Pour expliquer son fonctionnement, nous allons nous baser sur un exemple. 
Imaginons que l'utilisateur ait tapé la phrase : 


“Je suis content car l'avenir s'annonce merveilleux” 


Examinons maintenant chacun des mots qui la compose : 


“je” possède un coefficient de 5 pour l'égocentrisme 

“content” possède un coefficient de 10 pour la joie, 3 pour l'optimisme, 5 pour le 
positivisme. 

“avenir” possède un coefficient de 10 pour l'optimisme, 5 pour la joie, 5 pour 
l'insouciance et 5 pour le positivisme. 

“merveilleux” possède un coefficient de 10 pour le bonheur, 8 pour la joie, 6 pour 
l'insouciance et 5 pour l’optimisme. 

les autres mots ne font pas partie de la liste des mots-clefs. 


Après avoir repéré des mots, le programme effectue le score obtenu par chaque 
trait de caractère (ligne 2440 à 2550). 


égocentrisme totalise 5 points 

optimisme totalise 3 + 10 + 5 = 18 points 
positivisme totalise 5 + 5 = 10 points 
insouciance totalise 5 + 6 = 11 points 
bonheur totalise 10 points 

joie totalise 10 + 5 + 8 = 23 points 
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La création d’une réponse 


Parmi ces six traits de caractères qui obtiennent une note non nulle, l'un est 
choisi aléatoirement et c'est à partir des phrases arborescentes qui lui sont asso- 
ciées que le programme va construire une réponse, grâce au “générateur de 
texte”. Le hasard intervient à deux niveaux, il y a donc deux raisons pour qu'à 
phrases égales, le programme génère deux réponses différentes. D'autre part, la 
note générale (c'est-à-dire depuis le début du dialogue) de chaque trait de carac- 
tère est augmentée du score obtenu par la phrase. Ce sont ces scores qui sont 
exploités par l'ordre “bilan”. 


Dans le cas ou aucun des mots de la phrase ne font partie de la liste des mots- 
clefs associés aux traits de caractère, le programme cherche à détecter des mots- 
clefs associés à des sujets traités (lignes 740 à 870), un des sujets abordés est 
choisi aléatoirement et provoque la génération d'une réponse à partir des phrases 
arborescentes correspondant à ce sujet. 


Si des mots-clefs des deux types sont détectés, le programme orientera aléa- 
toirement la recherche d'une réponse vers l’une ou l’autre des méthodes. 


Enfin, quelques cas particuliers peuvent se présenter : 

— l'utilisateur a tapé “n'importe quoi”, par simple curiosité, en plaquant sa main 
sur le clavier. Ceci provoque généralement la frappe d'une chaîne de caractères, 
plus longue que la plupart des mots français. Si elle dépasse quinze caractères, 
cela entraîne la génération d'une réponse créée par la phrase arborescente AB- 
SURDES (ligne 1450) ; 


— l'utilisateur a tapé une phrase trop courte (moins de sept caractères). Une 
réponse est alors construite à partir de la phrase arborescente TROP.COURTS 
(ligne 1440) ; 


— l'utilisateur a tapé une phrase qui ne contient aucun mot clef connu, une 
réponse destinée à relancer le dialogue est générée à partir de la phrase arbores- 
cente RELANCES (ligne 1430). 


LISTE DES PRINCIPALES VARIABLES 


mot$(i) tableau des mots ou racines de mots associés à des traits de caractère ; 
mot2$(i) tableau des mots associés à des “sujets de conversation” ; 

qual$(i, j) chaînes de caractères désignant les qualités (j = 0) et leur contraire 
ÿ= 1 

niveau(i,j) importance sémantique du mot i pour la qualité j ; 

caractère(i) score atteint par l'utilisateur pour la qualité i ; 

sujet(i) sujet de conversation qu'implique le mot i ; 

phpcar$(i,j) phrases potentielles i associées à la qualité j = 0 ou à la qualité inverse 
(donc le défaut), j=1 ; 

phsuj$(i) phrases potentielles associées au sujet i ; 


pdoS$(i) pile de données 
pop$(i) pile opérateurs ces 3 tableaux interviennent dans le gé- 


pex$(i) pile exécution nérateur de texte. 
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18 REM ERBHRRERERERERENE 

28 REM SEMAN (T. L.-A,) 

JE REM HHHERERERENERER 

4g MODE 2 

dd DEFINT a-2 

68 DIM pdo$ (30) ,papf (30) ,pexf (20) 

78 nnots=18d:nmots2=15@:nqual={5snsujets=14 
88 DIM qual$nqual ,1) niveau (nqual ,nnots) ,sujet (naots2) ,caracterel(nqual} 
98 DIM buff1$(30) ,buff2$(30) ,buff3{(20) 

108 DIM not$innots) ,mot2$(naots2) ,absurdef (78) 
110 DIN phpcar$(nqual ,f) ,phpsuj$(nsujets) 


158 DATA trist,pleur ,larm,fi 

168 DATA joy,joi,ris,rir souri,fete,marre foire, f2 

178 DATA 1,18, 3,8, 10,5, #3 

188 DATA stress,angoiss depria,cafard, bourdon, desesp,souci probleme, fi 
198 DATA insoucian,f2 

288 DATA 2,10, 3,5, 10,3, #3 

218 DATA pessi®i passe, fi 

228 DATA optimi,avenir futur, f2 

238 DATA 3,18, 1,9, 2,3, 10,5, 3 

248 DATA mechan,vilain,fi 

290 DATA genti,amical sympatique, sage, f2 

268 DATA 4,10, 6,2, 10,5, 12,5, #3 

278 DATA " ego"," £oi "," je “," j'"," non “," ma "," nes "fl 
288 DATA altruis,autre,f2 

290 DATA 5,2, 9,2, f3 

308 DATA hai,detest ,f1 

318 DATA anour ,aiae, sentiment ,f2 

328 DATA 6,10, 1,2, f3 

330 DATA "az xlm “,zanvinv,zzhzol ,zzhzozfm,zzulfqi,zzvmxfov,zegzxsv,zzkfgzra,zik 
fgv,fl 

340 DATA s'il vous plait,serci,bonjour ,salut ,f2 

358 DATA 7,18, 4,8, #3 

360 DATA sport ,natat foot, jogg,course, fort ,musc,tennis,ski,fi 
378 DATA seden,gros,gras," aou",f2 

388 DATA 8, 19, #3 

398 DATA avar ,gard,f1 

408 DATA genereu,partage," don",offr offert, f2 

418 DATA 9,18, 5,8, 4,2, #3 

428 DATA " negat "," pas "," non ‘," ne ","n'"," rien ",contr," sais "fl 
438 DATA positi," oui "," pour ",f2 

448 DATA 18,2,#3 

458 DATA salheur ,f1 

468 DATA bonheur heureux ,rerveilleux,f2 

478 DATA 11,18, 1,8, 2,6, 3,5, f3 

488 DATA * peur" ,effraye,secour ,fl 
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498 DATA courage teneraire,f2 

508 DATA 12,18,F3 

518 DATA * fou "," fol" ,debile,cingle," tare",idiot,cretin,fi 
528 DATA f2 

930 DATA 15,18,f3 

540 DATA zzhvcv,zzerlo,zzuifhgi,2zyrgv,zzkrmv,zzxlfroov,22x52q0v 
590 DATA zzhvra,zzmfv,zzuvnnv,22yzrhv, fl 

J68 DATA #2 

3/8 DATA 14,10,F3 

980 DATA agress, mordre," bat" ,querre,fi 

998 DATA paix,calae,passifis,f2 

608 DATA 15,16,6,3,3 

618 DATA fin 


658 DATA 1 tristesse, joie,2,depriae,insouciance,3,pessiaisae, optinisae 

668 DATA 4,mechancete gentillesse,5,egocentrisne,altruisae,6,haine, amour 

678 DATA 7,grossierete politesse,8,sportivite,sedentarite,9,avarice,generosite 
688 DATA 10 ,negativisme,positivisne,{1,malheur bonheur ,12,peur ,courage 

89Ë DATA 13,folie,sainete d'esprit,14,libyda,libydo,15,agressivite,calme 

708 DATA f1 


749 DATA {voiture bagnole,route,fi 

738 DATA 2,ordinateur ,#icro,informatiq,disquette,fi 

768 DATA 5,pluie,soleil ,chaud,froid,pluv,huaid,nuage, neige," gel",fi 

778 DATA 4, amour ,aise,coeur ,f! 

788 DATA 5,netaphysique,* ane" ,univers,creation," vie ",fl 

798 DATA 6,dieu,deesse,relig," ange",paradi enfer ,catholi,chretien,arabe, juif, fi 


800 DATA 7 travail boulot bosse, triae,fi 

818 DATA 8," vous "," toi "," tu "," ton "," tes ",fi 

828 DATA 9,annee nostalgie, vieil ,choneur ,chonage, boulot, fi 

838 DATA 18,science,tech,chiai ,aath,astrono,sociolo,fi 

848 DATA 11,5ante,aalad,bless,bobo,sedecin,docteur ,rhume,gripp,angine,fatiqu,ner 
f," las “aie ,ouille,fi 

858 DATA 12,nourr ,bouff ,restau,repas," mange"," dine ",dejeun,faim,alia,viande,l 
equae,fl 

B68 DATA 13,aort,#orb,au-dela,cimetiere,toabe,patres,fl 

874 DATA 14,argent ,uirx,paye, franc brique,billet ,aonnaie,lhvraov,kitaln,fl 

888 DATA f2 


908 REM phrases arborescentes des reponses en rapport 
918 REN avec les traits de caractere 


938 DATA “(Pour quoit+(pleurez-voustces larmes)+,+(nostalgierasour decu)+ou peut-e 
tre parent perdu?)" 
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548 DATA “{(super '#continuez')tle vie est trop courte, il fautt(en profiter*en j 
ouir au maxiau®))" 

550 DATA "{lidetendez#decrispez)+(voustvotre corps et votre espritkvotre ame))#( 
d'ou vient cette angoisse?#depuis quand etes-vous strescete;?)}" 

968 DATA “ien tirez-vous partitest-ce une qualite)+?}" 

978 DATA "{lL'avenir+le futur)+tn'estt{peut-etretsans doute)+{pas sit(sonbre#laid 
1h} 

988 DATA "((l'optinisme est une conditiont(isine qua non detindispensable a)tla r 
eussite)*foncez! vous irez loin!}" 

598 DATA "((Quel+(horribleraffreux+aboninable)tdefaut')#(j"ent(trembletfremit))) 


1690 DATA “(cela ae plaitt{pourrions-noustserait-il passible d')+(organiser+arra 
nger)+lune rencontretune entrevuetun rendez-vous)+?) 

1810 DATA "lil n'y en a que pour voustet ies autres?#(retirez vous donc sur+t{une 
ile desertexun asteroide))) 

1028 DATA "iles autres voust(le rendrontt+en seront reconnaissants))" 

1030 DATA "{lest-ce la bonnet(solutiontmethode)+?)#(1a hainet(resseable souvent 
a L'#est souvent synonyme) +amour))" 

1040 DATA "(pour voustlest-ce un sentiment+(eternel#fugacetimnortel#universel#in 
coaprehensible)}+?)" 

1850 DATA "(je vous retourne le conmpliment+#(ce n'est pas lat(politessetcourtoisi 

el+qui voust(etouffetetrangle)}#vaus cherchez a me testertne fe poussez pas à bo 

ut#(mais que fait lat(police*gendarmerietbrigade des gras aots)+?))" 

1868 DATA "(quelle+(deferencetpolitesse)+pour le miserable tas de ferraille que 
je suis) 

1970 DATA "(c'est bon pour+(la formetia sante#le coeurt{le corps et+(l'espritxle 
aoral)})} 

1988 DATA "(l'infarctus voust(guete#connaissez?))" 

1090 DATA "(pourquoi ne pas partager ?#en tirez vous benefice?)" 

1108 DATA “(vous serez reabourse au centuple+*vous en serez reconpense)" 

1118 DATA "(chez aoi,c'est un leitnotiv :+{etre negatif#le negativisae)+{entrain 
etprovoque)+(a termetun jour ou l'autre+invariablement#a coup sur+systematiqueme 

ntésouvent)+{lat(faillitetdecheancetperte)tde l'individu)}" 

1128 DATA "ha! si tout Le monde repondait toujours positivement#(cela a au moin 
st(l'avantagetle nerite)+d'etre positifl)" 

1130 DATA "((jet(senstcrois)tque je vaist({pleurer#fondre en)+(larmestsanglots)) 
}#(quellet(nisere'+tristesse...)))" 

1148 DATA "(laujourd'huitaaintenant)+(voust(etestvous sentez)+(heureux(euse?#bie 
nisur(e) de voustepanoui<e}))+aais denain?)" 

1150 DATA "(du nerf'#allons,reprenez vous'#(ne vous laissez past(aller#sombrer#a 

battre)})" 

1168 DATA “(une qualite+(dont revent+a laquelle aspirent)ttous lest(peureux#trou 
illards))" 

1170 DATA "(au fou!#a l'asile#(il faut faire quelque choset(aais quoi?#que propo 
sez vous?})))" 

1188 DATA *" 

1198 DATA "(((vous avez des problesest(a ce niveau?#dans ce domaine?))tetes vous 
frustre(e}1+?)* 

1208 DATA "* 
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1210 DATA "let la negociation"#priviligiez le dialoguetgardons notre calmel" 
1229 DATA ‘" 

LAID REN===S=2==2E=5=S-22-5-755-52-2 55522 2SE SE 

1240 REM phrases arborescentes associees aux sujets 

1298 REMN==========2=2225-22-22522=52227222 255552222222 

1268 DATA "{lconnaissez-vous lat(Ferrari 2198 GTStLanborghini Countach#Porshe 91! 
SCxChevrolet Corvettei+?}+je frequente aci-meñe une bielle*j'avais une automabi 


le dans le teaps)" 

1278 DATA “ivoila untisujet#donaine}+qui noustiinteressetpassionne#concerne)ttou 
s les deux}" 

1280 DATA ‘quel sujet bien neutretvous ñe vous ‘nouillez:' pas trop'#(le tenps e 
stt(detraquetbizarre))#{etes-vous la pourtime parlertdiscuter}+du temps?) 

1298 DATA {vous en trouverez d'autrestmille vous attendent#c'etait bien?#est-ce 
si grave?#l'aimez-vous vraiment?) 

1308 DATA “ic est comme pourt(les QVNIstie monstre du Loch Nesstle Triangle des 
Bermudestles fantoñestla telepathietla telekinesietla parapsychologie)+noust{son 
des ignorantskne 3avons pas grand chose})" 

1319 DATA "je ne sais pas.,..+#et les anges?tun ange passe. .)" 

1326 DATA “(pourquoi ne pasticreer+acnter)+tvotre propret(affairetboitetentrepris 
etsociete)+7)" 

1330 DATA “(0h aoi,vous savez...#{laissez-aoit(horsten dehors)tde cette histoire 
PFnous sonnest(icitlatensesble)+pour+(discuter#parler)+det{votre castvous)})" 
1348 DATA "(regardez vers l'avenirkce qui est passe n'est que souvenir)" 

1350 DATA "{lheu...je ne m'y connaist(guere#pastpas beaucoup))#(les ouvrages son 
tt+{legionstnosbreux)+dans ce domaine}#lisez!)" 

1368 DATA "vous vous en remettrezt(ca ira mieux+(demaintle moins prochain#l'ann 
ee prochaine)})" 

1370 DATA "(bon appetit'#faites-vous la cuisine?)" 

1388 DATA “(mon ancetre, l'ordinateur à lampet(n'est plustest aort)+, est-il+{au 
paradiskau cielken enfer}+?7)" 

13590 DATA "(l'argent ne fait pas le bonheur#les humains ne pensent qu'a l'argent 
j" 

1499 REM=============222==222222222222222722222222222222222222222222= 

1418 REM relance, changement de sujet ,5hrase trop courte où absurde 

1429 REM=======2==2==22==22=22222=22=22222==22222222222222222222222= 

1430 relancef="({que pensez-voust(de dieutdes OVNIS#du travail))+(parlez-noi det 
{vous#(votret(caractereæpersonnalite#splintemploi du tenps))+(vost(qualitestdefa 

uts#{pointst(ifortstfaibles))+passe-teapstsoucistproblemestcentres d'interets)))) 
j" 

1440 trop.court#="{ne soyez pas si tisidetdites n'en plus#((continuez+#enchainez# 

ais encoretdeveloppez)+...)+expliquez-voustje vous ecoute+oui ,non,blanc, noir ,50 

vez plus precis'an'ayez pas peur,continueztexprinez-vous,je n'ai jamais mange pe 

rsonne)" 

1458 absurdef=" (quel charabia!#aon clavier ne vous a rien fait#vous etes fier de 
vous?tvous se sous estiseztca y est,on a bien joue?#(elle est bien bonne'et cel 
le la,vous la connaissez :+(uirhgjfristinotgeuyh#gsfdahgjfsdtpordkfeæoi jsddg#:io 
jotssssss)))"* 

1468 REM===========2====2=22=22222 

1476 REM reaplissage des tableaux 


RECONNAISSANCE DE LA PAROLE |71 


1488 REM===============2=====2=2227 

1498 a=l:naots=Q:naots2=8 

1588 READ a$ 

1919 IF a$="f1" THEN a=2:607T0 1588 

1920 IF a$="f2" THEN a=3:G60T0 1588 

1538 IF a$="f3" THEN a=1:60T0 1590 

1548 IF a$="fin" THEN 1760 

1558 IF a=i THEN buffif(il)=a$:i1=ii+1: 6070 1508 
1560 IF a=2 THEN buff2$(12)=a$:i2=12+1:6010 1588 
1578 buff3li3)=VAL(a$):i3=i3+1:60T0 1588 
1580 REM------ 

1398 FOR i=@ TO ii-1 

1608  aot$(naots)=buffif(i) 

1614 FOR j=@ TO i3-1 STEP 2 

1628 niveau (buff3(j) ,nsots)=-buff3(j+1) 
1630 NEXT j 

1648  naots=naotsti 

1658 NEXT i 

1668 FOR i=8 TO i2-1 

1678  aotf(naots)=buff2#(i) 

1688 FOR j=@ TO i3-1 STEP 2 

1694 niveau (buff3(j) ,nnots)=buff3(j+1} 
1708 NET j 

1718  naots=nnotsti 

1728 NEXT i 

1730 i1=0:i2-0:i3-0 

1740 GOTO 1500 


1768 READ af 

1770 IF a$="f1" THEN 1830 
1788 READ b$,c$ 

1798 qual$ {VAL (af) ,@)=b$ 

1898 qual$ (VAL (a$) ,1)=c$ 

1810 GOTO 1768 


1830 READ af 

1849 IF a$="#2" THEN 1920 

1850 IF a$="fl" THEN 1830 

1860 IF VAL(a$){5Q THEN i=VAL(a$):60T0 1838 
1870 mot2$inaots2)}=af$ 

1888 sujet {nmots2)=i 

1898 nmots2=nnots2+i 

1988 G0TO 1630 

1918 REM==2=z 

1928 FOR i=@ TO naots-1 

1930 nf=notfli) 

1948 IF LEFT$(m$,2)="22" THEN GOSUB 202@:aot$(i=n$ 
1950 NEXT i 

1960 FOR i=4 TO naots2-1 
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1978 nf=aot?2$(i) 

1988 IF LEFT$(m$,2)="22" THEN GOSUB 202@:not2$li)=n$ 
1998 NEXT i 

2808 GOTO 2118 

2010 REM------ 

2028 a$=RIGAT$ (m$,LEN(a$) -2) 

2050 ai$="" 

2840 FOR j=1 TO LEN(a$) 

2050 IF MID$(n$,j,1)=" " THEN nif=nift" ":G60T0 2078 
2069 nl$=mi$+CHR$(219-ASC(MID$(m$,j,1))) 

2076 NEXT j 

2080 a$=ai$ 

2098 RETURN 

2188 REM===== 

2:10 FOR i=i T0 15 

2128 FOR j=8 T0 i 

213 READ phpcar$(i,j) 

2148 NEXT j 

2159 NEXT i 

2168 REM--- 

2170 FOR i=i TO 14 

2188 READ phpsujfti} 

2198 NEXT i 

2208 REM===========2==2=2=2=222=2=2=2=222=2222222=222227 
2218 REM analyse de la phrase frappee par l'utilisateur 


nn 


220 REM et recherche d'une replique 


£ 
22 
2248 PRINT "A tout aoment, vous pouvez avoir un bilan coaplet" 
2250 PRINT "en tapant BILAN" 

2268 PRINT "ORDINATEUR: bonjour! ":; 

2270 ch$=relance$:G60SUB 2760:PRINT pdof (@) 

2288 pileA=@:pileB=8 

2298 LINE INPUT "VOUS: ";ph$ 

2308 ph$=LOWERS (phf) 

2316 IF ph$="bilan" THEN GOSUB 3160:60T0 2280 

2328 ph$=" "+ph$t" * 

2330 IF LEN(ph#$)<7 THEN ch$=trop.court$:GO0SUB 2760:G070 2710 

2348 REM--- calcul de la longueur !max du mot le plus long --- 

2358 1=0:1max=0 

236@ FOR i=1 TO LEN(phf} 

2378 IF MID$(ph$,i,12€}" " THEN 1=1+1:6070 2408 

2388 IF l'lmax THEN Inax=l 

2398 1-0 

2488 NEXT i 

2418 REN--- 

2428 IF Imax}15 THEN ch$=absurdef: G0SUB 2768@:6010 2710 

2438 REM--- recherche et nendrisation des aots-clefs "caractere" --- 
2444 FOR mot=@ TO naots-i 

2458 IF INSTR(ph$.mot$(aot)})}=@ THEN 255 
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2468 FOR qual=i TO 15 

247 n=niveau(qual ,aot) 

2488 IF n=0 THEN 2540 

2498 caractere(qual}=caractere(qual}+n 

2500 IF ABS(n){3 THEN 2540 

231 pileAl(pilef)=qual 

2520 IF ni@ THEN pileA2(pileA)=1 ELSE pileA2(piieñ)=0 

2338 pileA=pileñt! 

2540 NEXT qual 

2950 NEXT mot 

2968 REM--- menmorisation des sujets abordes --- 

2570 FOR act2=0 TO nmots2-{ 

2388 IF INSTR(ph$,mot2$(mot2))(}8 THEN pileB(pileB)=sujet (mot2}:pileB=pileBt! 
2598 NEXT aot2 

2608 REM------ 

2618 IF pileA=@ AND pileB=@ THEN ch$=relance$:G0SUB 2768:60T0 2710 
2620 IF pileA(?@ AND pileBt>@ THEN IF RND>0.5 THEN 2648 ELSE 2688 
2630 IF pileB{?0 THEN 2084 

2548 r=INT(RNDxpileÂ) 

2458 ch$=phpcar$ipileAi(r),pileA2(r}} 

2068 GOSUB 2768@:60T0 2710 

2h78 REM------ 

2688 r=INT(RNDxpileB) 

2698 ch$=phpsuj#(pileB(r}} 

2780 GOSUB 2768 

2718 PRINT "ORDINATEUR: ";pdof (0) 

2720 G0TO 2284 


2740 REM generateur de texte ENTREE : ch$ 

2750 REM=========2=2=2=222222=2222222222222= 

2760 d=Q:o=@:e=0:i1=0:12=0 

2778 FOR I=1 TO LEN(CH#) 

2700 IF MID$(CH$,1,1)="{" THEN J1=11+1:60T0 2800 
2790 IF MID$(CH$,1,1)1=")" THEN 12=12+] 

2888 NEXT I 

2818 IF [1212 THEN PRINT "Erreur de parenthese":END 
2828 FOR i=1 TO LEN(ch#} 

2830 car$=MID$(ch$,i,1) 

2840 IF car$=")" THEN 2910 

2850 IF car$(>"(" AND car${)"+" AND car$()"æ" THEN 2890 
2869 IF mot$()"" THEN pdo$ld)=aot$+" ":aot$="":d=d#l 
2878 pop#(o)=car$:0=0+] 

2880 GOTO 3090 

2898 aot$=aotf$tcar$ 

2988 GOTO 3098 

2918 IF aot$()"" THEN pdofid)=not$+" ":aot$="":d=d#1 
2928 GOSUB 3118 

2938 op#$=pop$(o-1):0=0-1 

2948 GOSUB 3118 
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2958 IF pop$(o-1)=op$ THEN o=0-1:60T0 2948 
2968 IF pap$(a-1){}"{" THEN PRINT "Erreur de parenthese":END 
2978 0=0-1 

2988 IF op$="+#" THEN 3068 

2998 pdof(d)="" 

3008 FOR J=e-1 TO 8 STEP -1 

3818  pdof(d)=pdof(d)+pex$(j) 

3928 NEXT j 

3838 d=d+1 

3040 e=0 

3054 GOTC 3090 

3060 pdaf (d)=pex$ (INT (RND#E) ) 

3870 d=d+i 

3080 e=0 

3890 NEXT i 

3188 RETURN 

3110 pexf(e)=pdof(d-1}:e=e+1:d=d-1 
3120 RETURN 

3130 REM-------------------- 

3140 REM affichage du profil 

3190 REM-------------"--"--- 

3168 FOR qual=i TO 15 

70 IF caractere(qual)=@ THEN 3210 


3180 IF caractere(qual}>@ THEN PRINT qual$(qual,i};":"::60T0 3200 


3190 PRINT qual#(quai,@);":": 
3284 PRINT ABS{caractere(qual}} 
3218 NEÏT qual 

3228 RETURN 
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PRÉSENTATION DU PROGRAMME PHRASES 
(BASE DE CONNAISSANCES) 


COMMENT L'UTILISER ? 


Ce logiciel vous offre la possibilité de stocker, en vrac toutes sortes d'informa- 
tions, éventuellement dans plusieurs domaines différents, puis de consulter la 
base de connaissances ainsi créée par de simples questions, formulées en lan- 
gage naturel. 


Concrètement, sept commandes vous donneront accès à toutes les fonctions. 
Détaillons-les : 


— E vous permet d'entrer une série de phrases de votre choix ; 

— L permet de les lister, chacune étant précédée d'un numéro ; 

— Q permet de poser une question ; 

— D permet de détruire une phrase (en indiquant simplement son numéro) ; 

— S permet la sauvegarde de toute la base sur cassette ou disquette ; 

— C permet la lecture d'une base sur cassette ou disquette ; 

— F provoque la destruction de l'ensemble de la base de connaissances en mé- 
moire. 


A noter que lorsque vous posez une question, le logiciel opère une sélection 
des réponses à deux niveaux. || arrive parfois qu'aucune phrase ne soit sélection- 
née au deuxième niveau, l'ordinateur vous délivre alors le message “Je ne peux 
répondre directement, voulez-vous d’autres informations”, ce qui signifie techni- 
quement “je n'ai sélectionné aucune phrase au deuxième niveau, voulez-vous les 
phrases sélectionnées au premier niveau ?”. Dans la partie “comment ça marche”, 
des précisions sont données sur la nature et l'utilité de ces deux niveaux de sélec- 
tion. 


a) ——————————— 


COMMANDE : e 

ENTREZ UNE PHRASE? le tel de Jean est 44 55 88 99 
ENTREZ UNE PHRASE? rdv avec Jean le 10 pie 
ENTREZ UNE PHRASE? At est dans la 

ENTREZ UNE PHRASE? le tel de Michele est 55 88 77 66 
ENTREZ UNE PHRASE? rdv avec Michele le 16 juillet 
ENTREZ UNE PHRASE? 


COMMANDE : ï 

VOTRE QUESTION? avec qui ai-je rdv le 19 juillet 
rdv avec Jean Le 19 juillet 

VOTRE QUESTION? avec qui ai-je rdv en juillet 
rdv avec Jean le 18 juillet 

rdv avec Michele le 6 juillet 

VOTRE QUESTION? quel est le tel de Jean 

le tel de Jean est 44 55 88 99 

VOTRE QUESTION? 

COMMANDE : 1 











ol Ecentres d'une phraseliiä=-quest ionÀ 
£ THorelour à au node conmant ets 


76| 1.A. SUR AMSTRAD CPC 






OR————————EEEEEEE—EZ 










partir de quel numero? Î 
le tel de Jean est 44 55 88 99 
se avec Jean le 18 dis 

à | 

r 


ichele est dans la 
dv avec Michele le 16 juillet 
ANDE : 1 















e tel de Michele ns Ke 88 77 66 


À partir de quel nunero? 3 

3 ‘Michele est dans la lune 

‘le tel de Michele est 55 88 77 66 
5 rdv avec Michele le 16 juillet 


COMMANDE : ï 

VOTRE QUESTION? ou est Michele 

Michele est dans la lune 

ste vous d'autres informations (o ou n)? 


le “tel de Michele est 55 88 77 66 
rdv avec Michele le 16 juillet 
VOTRE QUESTION? 





d'une pe 
Lie our 





: ‘rdv avec Michele le 16 juillet 


VOTRE QUESTION? ou est Michele 
Michele est dans la lune 
jure vous d’autres informations (o ou n)? 


pi tel de Michele est 55 88 77 66 
rdv avec Michele le 16 juillet 
VOTRE QUESTION? 





Numero de la pus a detruire? 2 
à :rdv avec Jean Le 18 juillet 
Conf irnation:C fnnulation:4? c 

COMMANDE : 1 


À partir de quel numero? 1 

L'ile tel de Jean est 4 88 99 

à Michele est dans la lun 

3 ‘le tel de Michele est Ge 88 77 66 
4 :rdv avec Michele le 16 juillet 
COMMANDE : 









OMMANDE 
ctntree d'une Lou au nue coans 
JE our au node coma 


ER:re 


Les trois copies d'écran montrent un assez large éventail des possibilités de: 
PHRASES. À noter que pour sortir d'une commande, il suffit d'appuyer sur ENTER 
à vide. 
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COMMENT ÇA MARCHE ? 


Le principal problème qu'a à résoudre ce logiciel est celui de la sélection d'une 
des phrases préalablement entrées par l'utilisateur, celle-ci s'effectuant en fonc- 
tion d'une question posée par l'utilisateur. 


Voyons d'abord ce qui se passe lorsque l’on ajoute une nouvelle phrase à la 
base de connaissances : elle est simplement placée dans le tableau PHS$(i), i étant 
le numéro de la phrase. 


Lorsque l'utilisateur souhaite interroger la base de connaissances, le program- 
me traite la question posée en plusieurs étapes : 


— découpage de celle-ci en mots ; 


— élimination des intrus (dont la liste figure en DATAs), ce sont les mots dont le 
sens est accessoire et qui risquent d'attribuer à tort une ressemblance entre la 
question et certaines phrases de la base ; 


— première sélection des phrases les plus ressemblantes à la question. Cette 
sélection compte le nombre de mots communs à la question et à chaque phrase 
et sélectionne celles qui en possèdent le plus. Ainsi si la base de connaissance 
est composée des trois phrases : 


1 :le chat est sur le toit, 
2 : le chat est noir et blanc, 
8 : les souris dansent. 


La question : “où est le chat ?” entraînera la sélection des phrases 1 et 2 qui 
possèdent deux mots communs avec la question (en réalité un seul car “est” fait 
partie de la liste des intrus”). 


— deuxième sélection qui ne retiennent que les phrases ayant au moins un mot 
clef en rapport avec la nature de la question posée. Par exemple, lorsque la ques- 
tion porte sur le lieu (elle contient alors un mot comme “ou”), la réponse contient 
généralement un mot indiquant le lieu. Dans notre exemple, ce deuxième niveau 
de sélection portera son choix sur la phrase 1 qui contient le mot “sur”. La liste 
des mots associés aux questions portant sur le lieu, le temps, la manière et la 
cause, figure en tête du programme et peut être modifiée. 


Au cas ou aucune phrase n'est sélectionnée au deuxième niveau, le logiciel 
demande à l’utilisateur s’il désire afficher les phrases du premier niveau. 


- Il peut arriver qu'à cause de mots possédant plusieurs sens, le programme 
sélectionne trop de phrases, mais si la réponse à la question posée existe, elle 
fera toujours partie des phrases sélectionnées à l’un des deux niveaux. En d’autres 
termes, vous aurez parfois trop d'informations, mais jamais l'inverse. 


LISTE DES PRINCIPALES VARIABLES 


ph$(i) tableau contenant les phrases entrées par l'utilisateur 

ress(i) pour chaque phrase, coefficient de ressemblance entre celle-ci et la ques- 
tion posée 

mot$(i) tableau dont chaque élément est un moi, ce tableau est utilisé lors du 
découpage d’une phrase en mots 
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ph.selecti(i) numéros des phrases sélectionnées au niveau 1 

ph.select2(i) numéros des phrases sélectionnées au niveau 2 

conj$(i,j) mots indiquant une notion de lieu (i=0), temps (i=1), cause (i=2) ou 
manière (i=3). 

intrus$(i) tableau des mots “parasites” dont la pauvreté sémantique risque de 
perturber le processus de sélection. 


10 REMRENEHEHEEEHEEREEHE 

28 REN PHRASES (T. L.-A) 

30 REMREEEEHEEEEHERHEHEEEREE 

40 REN=== initialisation des variables === 

J8 DEFINT a-2 

68 DIM ph$(208) ,ress (288) ,cp(4,68) ,cpq(4) 

70 DIM ph.select1(50) 

88 DIN ph.select2(38) 

90 DIM conj$ (3,58) 

180 DIN intru$(78) 

118 DIM aot$(255) 

{28 REN--- lieu 

138 DATA dans, sur ,sous,cote, gauche droite,interieur 

148 DATA derriere,autour ,alentours,ou,exterieur ,vers, devant ,au-dela 
158 DATA pres, loin oppose, face,place,dela 

168 DATA fin 

178 REN--- teaps 

188 DATA hier ,aujourd'hui,demain,avenir futur ,#atin,midi,apres-midi heure 
198 DATA avant-hier ,apres-demain 

288 DATA ainute,seconde rois ,annee, semaine, jour 

218 DATA janvier fevrier ,sars,avril,nai,juin, juillet aout ,septenbre 
228 DATA octobre,novembre,deceabre 

238 DATA lundi ,nardi ,sercredi,jeudi,vendredi samedi ,diaanche 
248 DATA longteaps,teaps,eternite,naguere, jadis moment instant 
258 DATA pendant ,dur ant, quand, lorsque, lorsqu 

268 DATA fin 

278 REM--- cause 

288 DATA parce,cause,grace,pour ,but,car ,raison,donc 

298 DATA pour quoi 

308 DATA fin 

318 REM--- saniere 

328 DATA avec ,raniere,aide,noyen,appui ,facon,en,coasent 

338 DATA fin 

348 REN--- remplissage du tableau conj#$(i,j) 

398 FOR i=8 TO 3 

368  j=0 

378  READ aot$ 

380 IF not$="fin" THEN 418 

398 conj$(i,j}=a0t$ 

408 j=j+1:6070 374 
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419 ncli)=j:j=0 

420 NEXT i 

438 REM--- intrus 

448 DATA le,la,les,un,une,des,de,du,dont ,aais,et,ni," ","?",est 
458 DATA si, je, tu, il ,nous, vous ils,5e,son,5a,5es,ton,ta,tes,leur ,leurs 
468 DATA ce,ces,cet,cette,celui,celui,celui,ci,ca 

478 DATA ai,as,a,avons avez ont ,suis,es,est sommes ,etes,sont 
480 DATA notre,votre,nos,vos 

498 DATA celle,ceux,qui,que, quoi dont 

508 DATA fin 

910 j=8 

920 READ aot$ 

538 IF aot$="fin" THEN 568 

540 intruf(j)=mot$: j=j+ti 

598 60T0 528 

J68 nintrus=)j 

570 REM=== initialisation graphique === 

588 SYMBOL 240,259,0,299,0,255,0,255,0 

998 MODE 2 

688 LOCATE 1,1:PRINT STRINGS$ (80,240); 

618 FOR y=23 TO 25 

628  LOCATE 1,y:PRINT STRING$(80,287); 

638 NEXT y 

640 LOCATE 1,22:PRINT STRING$ (80,248) ; 

658 LOCATE 56,1:PRINT"DIALOGUE" 

66@ LOCATE 35,22: PRINT"COMMANDES" 

670 LOCATE 7,23:PRINT'L=liste":LOCATE 17,23:PRINT"E=entree d'une phrase" 
68@ LOCATE 41,23:PRINT"O=question" 

698 LOCATE 54,23:PRINT"D=detruire une phrase" 

700 LOCATE 10,25:PRINT"S=sauvegarde de la base" 

718 LOCATE 36,25:PRINT"C=lecture d'une base":LOCATE 99,25:PRINT"F=effacenent" 
728 LOCATE 24,24:PRINT'ENTER=retour au aode comaande" 

738 WINDOW 1,88,2,21 


770 INPUT "COMMANDE: ",c$ 

788 c$=UPPER$(c$) 

798 IF c$="L" THEN GOSUB 890:60T0 778 

890 IF c$="E" THEN GOSUB 1028:6070 774 

818 IF c$="Q" THEN GOSUB 1508:60T0 774 

8206 IF c$="D" THEN GOSUB 1308:60T0 778 

838 IF c$="F" THEN GOSUB 2354:60T0 770 

840 IF c$="S" THEN GOSUB 2580:607T0 778 

850 IF c$="C" THEN GOSUB 2648:607T0 774 

868 PRINT "Cette cosaande n'existe pas":60T0 770 


888 REN=== liste des phrases === 
898 IF np=@ THEN PRINT “Iapossible : la base est vide":RETURN 
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988 INPUT "A partir de quel nusero";no:no=no-1 

918 IF no=-1 THEN no=8 

928 IF nonp-1 THEN PRINT "Iapossible, nusero inexistant ":RETURN 
938 ligne=0 

948 FOR i=no TO np-1 

998 PRINT itij":"sph#(i) 

968  ligne=ligneti 

978 IF ligne=16 THEN INPUT “ENTER pour continuer, F pour arreter";rep$:ec=0 
988 IF UPPER$(rep$)="F" THEN i=1008 

998 NEXT i 

1888 RETURN 

1818 REM=== entree d'une phrase === 

1028 INPUT "ENTREZ UNE PHRASE";ph$ 

1830 IF ph$="" THEN RETURN 

1848 ph$(np)=ph$ 

1058 ph$=ph$+" " 

1868 REM--- decoupage en aots 

1070 j=@:mot$(@)="" 

1888 FOR i=1 TO LEN(ph#) 

1898 1$=MID$(ph$,i,1) 

1180 IF 1$=" " OR 1$="-" OR 1$=""" THEN 1120 

1118 aot$(j)=aot$(j)+1#:60T0 1130 

1128  j=jti:sot$(j)="" 

1138 NEXT i 

1148 naots=j 

1150 FOR i=8 T0 3 

1168 FOR k=@ TO naots-1 

1178 FOR j=8 TO ncli) 

1180 IF aot$(k)=conj$(i,j) THEN cpli,np)=1:j=1008 
1198 NEXT j 

1288 NEXT k 

1218 NEXT i 

1228 d=0 

1230 FOR i=8 T0 3 

1248 IF cpli,np)}(>8 THEN d=1:i=1008 

1258 NEXT i 

1268 IF d=@ THEN cp{4,np)=i 

1278 np=np+1 

1288 GOTO 1028 

1298 REM=== destruction d'une phrase === 

1300 IF np=@ THEN PRINT “lapossible : la base est vide":RETURN 
1318 INPUT “Nuaero de la phrase a detruire";no:no=no-1 
1328 IF no OR nonp-1 THEN PRINT “Nuaero inexistant ":RETURN 
1338 PRINT noti;":";ph#(no) 

1348 INPUT “Confirsation:C  Annulation:A";rep$ 

1350 rep$=UPPERS (rep$) 

1368 IF rep$="A" THEN RETURN 

1378 IF rep#$="C" THEN 1390 

1388 GOTO 1349 
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1398 FOR i=no TO np-1 

1408 ph$li)=ph$(iti) 
1410 FOR j=@ TO 4 

1420 cp{j,il=cp(j,iti) 
1430 NEXT j 

1440 NEXT i 

1458 np=np-1l 

1468 RETURN 


1500 IF np=@ THEN PRINT “Iapossible : la base est vide":RETURN 
1518 INPUT “VOTRE QUESTION"; quest$ 

1920 IF quest$="" THEN RETURN 

1530 questf=quest$+" " 

1540 REM--- decoupage en aots 

1558 j=@:aot$(@)="" 

1569 FOR i=1 TO LEN(quest$) 

1570  1$=MID$(quest$,i,1) 

1580 IF 1$=" " THEN 1600 

1590 aotf(j)=not$(j)+1$:607T0 1610 

1680  j=jtl:aot$(ji="" 

181@ NEXT i 

1628 naots=j 

1630 REM--- eliaination des intrus 

1640 FOR i=@ TO naots-i 

1658 FOR k=8 TO nintrus-1 

1669 IF sot$li)(>intru$(k) THEN 1728 
1670 REN- destruction de l'intrus et compression - 
1680 FOR 1=i TO naots-2 

1698 aot$(1)=not$(1+1) 

1708 NEXT 1 

1710 naots=naots-1 


1728 NET k 

1738 NEXT i 

1748 REM--- reperage des conjonctions --- 
1758 FOR i=0 TO 4:cpqli)=@:NEXT 

1768 FOR i=8 TO naots-i 

1779 FOR j=@ T0 3 

1788 FOR k=@ TO nc{j)-1 

1794 IF conjf{j,k}(aot$(i) THEN 1818 
1808 cpqlj}=i 

1810 NEXT k 

1828 NEXT j 

1838 NEXT i 

1840 d=0 

1858 FOR i=@ T0 3 

1868 IF cpqli)()@ THEN d=1:i=1088 

1878 NEXT i 
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1888 IF d=8 THEN cpql4)=1 

1899 REM--- selection niveau | 

1900 FOR i=@ TO np:ress(i)=@:NEXT i 

1918 FOR i=@ TO np-1 

1928 FOR j=8 TO naots-i 

1938 IF INSTR(ph#(i) ,aot$(j)})=@ THEN GOTO 1958 
1948 ress(il=ress(i})+! 

1958 NEXT j 

1968 NEXT i 

1970 ressaax=0 

1980 FOR i=8 TO np-1 

1998 IF ress(i))ressæax THEN ressaax=ress(i) 
2008 NEXT i 

2418 npi=0 

2028 FOR i=@ TO np-1 

2030 IF ress(i){?ressaax THEN 2060 

2048  ph.selecti(npi)=i 

2858  npi=npi+l 

2068 NEXT i 

2078 REM--- selection niveau 2 

2480 np2=8 

2898 FOR i=@ TO npi-{ 

2180 select(i)=Q@ 

2119 FOR j=0 TO 4 

2129 IF cplj,ph.selecti(i})#cpg(j}=@ THEN 2160 
2130 ph.select2(np2)=ph.select](i):np2=np2+l 
2140 select(i)=1 

2150 j=5:REM fait sortir de la boucle 

2168 NEXT j 

2178 NEXT i 

2188 IF np2(>@ THEN 2208 

2190 PRINT "Je ne peux repondre directenent":60T0 2239 
2208 FOR i=@ TO np2-i 

2218 PRINT ph#$(ph.select2(i}) 

2228 NEXT i 

2230 IF np2=npi THEN 1508 

2248 PRINT “Voulez-vous d'autres informations (o ou n)?" 
2250 INPUT rep$ 

2268 rep$=UPPER$(LEFT$(repf,1)) 

2278 IF rep$="0" THEN 2300 

2288 IF rep$="N" THEN 1500 

2298 PRINT “O0 ou N":60T0 2258 

2308 FOR i=@ TO npi-1 

2318 IF select(i)=@ THEN PRINT ph$(ph.selecti(i}) 
2328 NEXT i 


2330 60T0 1508 

2348 REM=== destruction de la base === 

2358 IF np=@ THEN PRINT "Ispossible : la base est vide":RETURN 
2368 PRINT "ATTENTION, cette comaande efface la base en aeacire" 
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2378 INPUT “Confirsation:C  Annulation:A":rep$ 

2388 repf=UPPER$ (repf) 

2390 IF rep#$="A" THEN RETURN 

2408 IF rep$="C" THEN 2478 

2414 GOTO 2574 

2420 FOR i=@ TO np-1 

2438 FOR j=@ TO 4 

2440 cp{j,i)=8 

2450 NET j 

2460 NEXT i 

2470 np=0 

2488 RETURN 

2498 REM=== sauvegarde sur cassette ou disquette === 
2500 IF np=0 THEN PRINT “Iapossible : la base est vide":RETURN 
2518 PRINT "Preparez votre cassette ou votre disquette" 
2520 INPUT "Noa de La base en aenoire";nonf 

2538 OPENOUT non$ 

2540 PRINT#9,np 

2598 FOR i=@ TO np-1 

2368  PRINT#9,ph#li) 

2570 FOR j=0 TO 4 

2580 PRINT#9,cp{j,il 

2598 NEXT j 

2688 NEXT i 

2618 CLOSEOUT 

2628 RETURN 

2630 REM=== lecture d'une base sur cassette ou disquette === 
2640 IF np=@ THEN 2710 

2650 PRINT"ATTENTION, cette commande efface la base en aencire" 
2668 INPUT'Canfiraation:C  Annulation:A";repf 

2678 rep$=UPPER$ (repf) 

2680 IF rep$="A" THEN RETURN 

2698 IF rep$="C" THEN 2710 

2700 GOTO 2660 

2718 INPUT "Noa de la base a charger en aenoire vive";non$ 
2720 OPENIN noa$+"." 

2730 INPUT#9,np 

2740 FOR i=@ TO np-1l 

2730  INPUT#9,ph#$li) 

2769 FOR j=@ TO 4 

2770 INPUT#9,cp{j,i) 

2788 NET j 

2798 NEXT i 

2488 CLOSEIN 

2814 RETURN 
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DEUXIÈME PARTIE : 
RÉFLEXION 


CHAPITRE 3 
ALGORITHME 
ET APPRENTISSAGE 


PRÉVISIONS SUR LA CAPACITÉ DES ORDINATEURS : 
L'ERREUR EST HUMAINE ! 


L'homme se trompe souvent, c'est chose acquise : le bruit court d’ailleurs que 
c'est le meilleur moyen d'apprendre. En matière de prévision, l'erreur devient pres- 
que la norme. La futurologie aspire au titre noble de “Science” mais G. Orwell, un 
de ses pères spirituels, ne manquerait pas de se retourner dans sa tombe si cette 
prétention se réalisait. N'avait-il pas prévu pour 1984 un monde totalitaire (en 
forme de clin d'œil il est vrai) ? 


Quoi d'étonnant donc à ce que tous, scientifiques, savants, écrivains soient 
(pardonnez l'expression) complètement “tombés à côté de la plaque” en affirmant 
péremptoirement qu'aucune machine ne pourra jamais rivaliser avec l'homme 
dans un jeu de stratégie. Confondus par la disproportion des forces en présence, 
ces partisans farouches de l'Homme ne s'imaginaient pas que celui-ci pourrait un 
jour se voir surclassé par les machines à des jeux aussi complexes que les Echecs, 
les Dames, le Backgammon, etc. D'un côté, la faculté (unique !) du joueur à s’a- 
dapter en toutes circonstances pour dresser des stratégies mouvantes, tor- 
tueuses... et imprévisibles. Napoléon n’a-t-il pas gagné la bataille d'Austerlitz en 
surprenant l'adversaire par une feinte de retraite ? Confronté à ce don quasi spi- 
rituel, la force brutale d'un amas de circuits parcouru de temps à autre par un 
frissonnement électrique, une boîte remplie de sable ! 


Certes les plus grands champions d’Echecs résistent encore face à des ma- 
chines de plus en plus fortes. Certes, certains jeux de stratégie restent (pour 
combien de temps ?) la chasse gardée de l'Homme (par exemple : le GO). Mais 
tout de même, on ne peut pas ne pas être impressionné par les progrès réalisés 
par les ordinateurs dans ce domaine. || n’est pas nécessaire cette fois d'être un 
devin pour prédire leur supériorité prochaine et absolue dans tous les jeux de 
stratégie. 


L'EXPLOSION COMBINATOIRE : L'ÉTENDUE DU PROBLÈME 


Sur quoi donc se fondaient toutes les certitudes de nos visionnaires du di- 
manche quant à la supériorité définitive de l’homme sur la machine ? Obscuran- 
tisme hérité du Moyen Age ? Non, vraiment non. Tout simplement on a longtemps 
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imaginé que les ordinateurs, incapables de jauger une position en cours de partie, 
devraient pour vaincre envisager tous les coups possibles, les réponses adverses 
à chacun de ces coups, etc. Le problème ainsi posé, pris par le mauvais bout, est 
effectivement insoluble car on se heurte là à un phénomène plus contraignant 
encore que le mur de la lumière : l'explosion combinatoire. Pour s'en convaincre, 
deux exemples : 


D'abord ce Grec qui, à son roi débiteur, énonça la requête suivante : 

“Placez un grain de blé sur la première case d'un échiquier, puis deux sur la 
seconde, quatre sur la troisième, multipliez par deux ce nombre à chaque nouvelle 
case jusqu'à la soixante-quatrième : ce blé sera ma récompense” Eh bien (le 
croiriez-vous) le blé du monde entier n'y suffit pas ! Faites une expérience : pliez 
une feuille de papier en deux, puis en deux, etc., soixante-quatre fois. Quelle 
épaisseur de papier allez-vous atteindre ? Dix centimètres ? Un mètre ? Vous êtes 
loin du compte : un quart d'année lumière soit cinq millions de fois la distance de 
la terre à la lune ! 


Le même phénomène d'explosion combinatoire intervient dans le nombre de 
coups à envisager si l’on prétend faire une analyse exhaustive d'un jeu comme 
les Echecs. Trente-six coups possibles en moyenne à un instant de la partie et 
quarante coups joués par chaque joueur pour l’amener à son terme, cela donne 
86 à la puissance 80 déroulements possibles (c'est-à-dire un 3 avec 124 zéros 
derrière !). Aucun ordinateur au monde ne pourra jamais être assez rapide pour 
avoir seulement le temps de jouer un seul coup ! 


COMMENT L'ORDINATEUR PEUT-IL 
NÉANMOINS RIVALISER AVEC L'HOMME ? 


Devant l'ampleur du résultat précédent, le postulat dont nous étions parti doit 
être remis en cause pour raison d'irréalisme. Pour contourner le problème, nous 
revenons à la méthode éprouvée qui fait référence en matière d'intelligence artifi- 
cielle : imiter les comportements humains. Or, l'homme quand il décide d'un coup, 
aux Echecs par exemple, sait-il toutes ses conséquences jusqu'au mat final ? Si 
c'était le cas, ce jeu ne connaîtrait pas le succès qui est le sien car un tel déter- 
minisme le ravalerait au rang du Tic Tac Toe. 


L'homme dispose de trois catégories de moyens différents pour optimiser son 
jeu et tendre ainsi (pour les meilleurs) vers la partie parfaite. Cette fameuse partie 
qu'un ordinateur mettrait une éternité à construire en utilisant la force brutale. Ces 
moyens ce sont : (1) un algorithme élaboré qui lui permet de ne pas examiner tous 
les coups, plus la capacité d'estimer la qualité d’une position, (2) l'apprentissage 
qui intervient pour améliorer cet algorithme ainsi que l'estimation des positions, et 
enfin (3) l'heuristique. Comme l'homme, les machines qui jouent et gagnent aux 
jeux de stratégies font appel à l’une ou à l’autre de ces techniques. 


L'APPROCHE HEURISTIQUE 


L'approche heuristique sera davantage développée dans le chapitre sur les 
systèmes experts. Nous ne présenterons pas ici de jeux de stratégie utilisant ce 
moyen. Néanmoins, il est important d’en parler car, de l'avis de tous les spécia- 
listes en intelligence artificielle, cette discipline permettra aux ordinateurs de fran- 
chir la distance, plus très grande, qui les sépare encore des champions humains. 
Le principe (développé dans le chapitre suivant) est celui des systèmes experts. 
L'ordinateur dispose d’une base de règles telles que celle-ci (Echecs) : 
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SI l'adversaire possède un désavantage numérique et 
SI un échange est possible et 

SI cet échange ne concerne pas la reine 

ALORS l'échange est intéressant 


D'autre part, un moteur d'inférence (cf. chap. sur les systèmes experts) en- 
chaîne toutes les règles de la base pour atteindre un but à court ou à long terme 
(par exemple : une amélioration de position, un échec, etc.). Ce moteur est dit “à 
chaînage arrière” car il est avantageux pour l'ordinateur d'émettre une hypothèse 
sur la position qu'il désire obtenir puis de mettre en œuvre toutes les règles pour 
y parvenir. On remonte bien en arrière, du but vers la position initiale. Intérêt 
énorme : cette technique limite considérablement l'explosion combinatoire puisque 
l'on prend le problème “à l'envers”. En effet, on part du résultat à obtenir et l'on 
cherche le chemin qui y mène. La relative jeunesse de cette approche et plus 
encore, la difficulté de formaliser l'ensemble des règles qui guident un maître 
d'Echecs, font que l’heuristique n'a pas encore concrétisé les espoirs que l'on 
fonde en elle. 


APPROCHE ALGORITHMIQUE : 
SIMULER PLUSIEURS COUPS DE SUITE 


L'ordinateur doit pouvoir simuler plusieurs coups de suite de manière à mieux 
estimer la qualité du coup qu'il va effectivement choisir. D'autre part, nous l'avons 
dit, il n'est pas envisageable de simuler tous les coups possibles à cause de 
l'explosion combinatoire. 


L'algorithme de simulation de coups doit donc pouvoir s'arrêter pas trop tôt pour 
être efficace et pas trop tard pour avoir le temps d'effectuer sa recherche. Raison- 
nablement, on admet qu'une recherche à dix niveaux (c’est-à-dire dix coups plus 
loin que la position initiale) constitue un bon compromis efficacité/performance. 
Cela dit, même à dix niveaux de profondeur, on ne pourräit pas faire une recherche 
exhaustive, c'est-à-dire parcourir toutes les branches de l'arbre de décision. Cet 
arbre de décision est une représentation imagée et agréable de l'ensemble des 
déroulements possibles de parties, à partir de la position examinée jusqu’à une 
profondeur choisie (c’est-à-dire la projection de la partie pendant un certain nom- 
bre de coups de part et d'autre). 


Position initiale 





[= 7] Niveau 0 
Coupi Le [ (ordinateur) 
Niveau 1 
réponse rep2 rep3 rep4 rep5 = rep7 sl rep9 (adversaire) 





coupis L 9s Niveau 2 
| (ordinateur) 


Position après trois coups 
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L'ALGORITHME MINIMAX 


Les deux jeux de stratégie que nous présentons dans cet ouvrage, Tic Tac Toe 
et Puissance 4 en trois dimensions, utilisent l'algorithme minimax ainsi que les 
techniques d'apprentissage dont nous parlons plus loin. Le principe de cet algo- 
rithme découle du simple bon sens. En effet, supposons que le coup 1 soit celui 
qui mène à la position la plus avantageuse pour l'ordinateur au niveau 2, c'est-à- 
dire après deux coups joués par la machine et un seul par son adversaire. Pour 
parvenir à cette position-là, il faut (c'est une obligation) que cet adversaire ait fait 
la réponse 1 au coup initial 1. Or, cet adversaire, qui n’est sans doute pas plus 
bête qu'un autre, devine bien que cette réponse 1 est justement celle qu'il faut 
éviter car c’est pour lui la plus mauvaise (puisque c’est la meilleure pour l’ordina- 
teur). À moins d'aimer perdre, il ne fera jamais cette réponse au coup 1. 


Dans l'algorithme minimax, on suppose donc que l'adversaire fait toujours la 
réponse de gain maximum (pour lui) à toute tentative de l'ordinateur. Cela permet 
ainsi à ce dernier de laisser purement et simplement tomber toute une partie de 
l'arbre (ici tous les coups qui suivent la réponse 1) pour cause d'invraisemblance, 
cet élagage de l'arbre est appelé élagage alpha-bêta. Les techniques de sa mise 
en sont complexes et leur description n'entre pas dans le cadre de cet ouvrage. 
Grâce à cette technique, il devient possible de faire une recherche à dix niveaux 
de profondeur sans examiner tous les cas. 


ESTIMER LA QUALITÉ D'UN COUP 


Dans la “manière” du joueur humain, cette fonction tient le haut du pavé car 
l’homme calculant lentement, il ne peut se permettre des explorations trop pro- 
fondes dans l'arbre des coups possibles. || compense donc cette faiblesse par une 
vision du jeu très fine. Celle-ci consiste à comparer les positions obtenues après 
simulation pour déterminer la plus avantageuse. Dans cette comparaison, l'homme 
est brillant, car il y inclut non seulement toutes sortes de critères quantifiables 
comme le nombre de pièces de part et d'autre, la valeur de ces pièces, leur mo- 
bilité, etc., mais aussi des critères qui tiennent de l'intuition géniale, comme la 
structure du jeu ou même une crispation de l'adversaire. L'ordinateur, lui, ne pour- 
ra prendre en compte que des critères chiffrables, propres à chaque jeu. 


A l'arrivée, cela donnera une fonction calculée par une opération sur tous ces 
critères auxquels seront associés des coefficients d'importance. Quant à l'aspect 
psychologique et aux critères non chiffrables, les techniques d'apprentissage peu- 
vent permettre à la machine d'en tenir compte “par expérience”. 


APPRENTISSAGE DE L'HOMME ET DE LA MACHINE 


Il existe un contraste frappant entre les capacités d'apprentissage de l'homme 
et de l'ordinateur. Pour s'en rendre compte, il suffit d'énumérer les principales 
caractéristiques de ce qu'il convient d'appeler un véritable don du ciel pour l'homme 
tant il a conditionné toute notre évolution depuis l'ère des cavernes. D'abord, une 
première constatation : l'homme apprend incroyablement lentement. Il faut trente 
années à un scientifique pour acquérir la connaissance de son domaine, trente 
années à un médecin pour atteindre le sommet de sa compétence, de nombreuses 
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années pour assimiler complètement une nouvelle langue... Et ces chiffres ne 
cessent d'augmenter puisque le volume des connaissances à ingurgiter s'accroît 
lui-même à un rythme effréné. A quand le jour où un médecin pourra commencer 
à exercer son art à soixante ans ? L'autre caractéristique qui explique en partie la 
lenteur extrême de l'apprentissage chez l'homme concerne les insuffisances de 
sa mémoire. 


Celle-ci ne brille ni par sa fiabilité (on oublie facilement) ni par ses performances 
(apprendre implique efforts et concentration). Le processus d'apprentissage chez 
l'homme comprend un grand nombre d'itérations pour parvenir à un résultat sou- 
vent discutable. 


Comparé à l'homme, l'ordinateur constitue un petit miracle d'efficacité. Un or- 
dinateur apprend vite, n'oublie jamais. Sa mémoire est fiable, à accès rapide, 
illimitée en volume. Comme nous ne voulons pas faire ici l'apologie de l'ordinateur, 
il nous faut bien admettre qu'il existe un revers à la médaille. Ou tout du moins des 
questions à se poser avant de conclure hâtivement à la supériorité de la machine 
sur l'homme. En effet, l'ordinateur apprend-il bien : c'est-à-dire, est-il capable d'isoler 
parmi un grand nombre, une information nouvelle, celle digne d'intérêt ? 


Une fois ce travail non trivial effectué, comment l'ordinateur peut-il stocker l'in- 
formation en mémoire de façon, CONCISE, sans gaspillage inutile. Cela pose des 
problèmes de représentation de données, d’’accès rapide, etc. Autant de casse- 
tête qui relèvent d'avantage de l'intelligence artificielle que de la force brutale 
(disques à grande capacité, mémoire à accès très rapide, etc.). 


Un exemple pour illustrer notre propos : comment stocker en mémoire une 
image ? D'abord, l'ordinateur doit vérifier que l’image ne lui est pas déjà connue, 
sous une forme ou sous une autre. En effet, inutile de mémoriser l'image de la 
Tour Eiffel vue de dessus, si on l’a déjà fait pour une vue de côté. Cela entraîne 
l'application des techniques de reconnaissance de formes décrites au chapitre 2. 
Ensuite, il faut à l'ordinateur compresser cette image (au moyen d'algoritimes 
divers) pour en réduire la taille et l'enregistrer de manière aussi concise que pos- 
sible. La plupart des domaines de l'intelligence artificielle interviennent dans l'ap- 
prentissage ont par conséquent déjà été abordés dans les chapitres précédents 
(reconnaissance de formes, reconnaissance de la parole, systèmes experts, etc.). 
Nous nous contenterons donc de traiter cet aspect de l'intelligence artificielle sous 
l'éclairage des jeux de stratégie. 


POURQUOI LES ORDINATEURS DOIVENT-ILS APPRENDRE ? 


La réponse à cette question tient à la nature même de l'intelligence artificielle, 
dont nous avons longuement débattu dans le premier chapitre. L'intelligence arti- 
ficielle prétend imiter les comportements humains dans la résolution de pro- 
blèmes. Or, il ne fait aucun doute qu'un des éléments fondamentaux de tout 
comportement humain réside dans sa capacité d'apprentissage. 


Comment un grand maître d'Echecs le devient-il ? En apprenant, tout simple- 
ment. Comment un pianiste devient-il virtuose ? Pourquoi distingue-t-on dans toutes 
les sociétés, modernes ou non, les apprentis des ouvriers expérimentés ? Parce 
que l'apprentissage fait partie des moyens les plus utilisés par l'homme pour ré- 
soudre les problèmes. Il constitue une des clés de tout comportement humain. Et 


92 | LA. SUR AMSTRAD CPC 


puisqu'il en est ainsi, il n'y a aucune raison de ne pas exploiter ce moyen sur 
ordinateur. D'autant que nos petites machines montrent un talent certain pour la 
chose. Qu'on en juge : mémoire infaillible, attention jamais relâchée, capacité de 
stockage quasi-illimitée ! 


COMMENT APPRENNENT LES MACHINES ? 


Nous avons évoqué, en parlant des jeux de stratégie, une fonction fondamen- 
tale : la fonction d'évaluation. Elle consiste, rappelons-le, à évaluer (par un chiffre 
dans le cas de l'ordinateur), le gain stratégique ou numérique obtenu après l’exé- 
cution d’un coup particulier. Or, typiquement, c’est cette fonction qui est améliorée 
dans le cas du joueur humain, au fil des parties. 


L'expérience acquise par des joueurs expérimentés repose pour l'essentiel, sur 
une meilleure estimation du gain réalisé par un coup envisagé. On peut parfaite- 
ment doter l'ordinateur de la même capacité à perfectionner sa fonction d'évalua- 
tion. C'est ce qui a été réalisé dans les programmes Puissance 4 et Tic Tac Toe 
et qui les rend si passionnants à affronter. D'un point de vue pratique, on attribue 
à chaque facteur intervenant dans l'estimation, un coefficient d'importance. Par 
exemple aux Echecs, le gain d'une reine aura le coefficient 100 (la perte d'une 
reine le coefficient —100), etc. Au cours des parties, l'apprentissage consistera à 
modifier ces chiffres en fonction de l'issue de la confrontation. Petit à petit, la 
fonction d'évaluation s’affinera et parviendra même à s'adapter pour exploiter les 
faiblesses de son adversaire. Ainsi, si celui-ci, toujours aux Echecs, manipule 
plutôt maladroitement sa reine, l'ordinateur en déduira que cette pièce a plus de 
valeur pour lui-même que pour son adversaire. En conséquence, il attribuera un 
coefficient 80 au gain de la reine adverse, et un coefficient —110 à la perte de la 
sienne. Ce principe est le même pour tous les jeux de stratégie avec apprentis- 
sage. 


Donc, et comme l’homme a toujours le dernier mot, changez de temps en temps 
de tactique, etrvous aurez toutes les chances de venir à bout des programmes 
que nous présentons ici et bon courage ! 


PRÉSENTATION DES PROGRAMMES : PUISSANCE 4 ET TIC 
TAC TOE EN 3 DIMENSIONS (AVEC APPRENTISSAGE) 


COMMENT LES UTILISER ? 


Rappelons en deux mots, les règles de chacun de ces jeux. 


Puissance 4 


Le but du jeu est de former une ligne, colonne ou diagonale de quatre pions de 
même couleur (celle du gagnant), dans un échiquier vertical de sept colonnes et 
six lignes. Les pions sont introduits dans une fente et tombent jusqu'à ce qu'ils 
rencontrent soit le fond de l'échiquier, soit un autre pion. Cette notion de pesanteur 
démarque nettement ce jeu du traditionnel morpion et exclut toute stratégie sys- 
tématiquement gagnante. 
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Vous connencez 

Qu jouez-vous ? 4 
Je joue en 

Qu Jouez-vous ? 5 
Je joue en Î 

Qu Jouez-vous ? 3 
Vous avez un coup 
gagnant quel que 
soit le mien 

Je joue en 

Qu Jouez-vous ? 6 
Vous avez gagne 





ot. 


Première partie que joue le programme : il joue tous ses coups dans la première 
colonne, c'est inefficace et l'humain écrase la machine. 


Je commence 

Je joue en 3 

Qu Jouez-vous ? 4 
Je Joue en à 

Qu Jouez-vous ? 3 
Je joue en 3 

Qu Jjouez-vous ? 4 
Je joue en 3 

Qu Jouez-vous ? 5 
Je Joue en 5 

Qu Jouez-vous ? 4 
Je joue en 4 

Qu Jouez-vous ? 5 
Je joue en 

Qu Jouez-vous ? £ 
Je joue en 3 

Qu Jouez-vous ? £ 
Vous avez un Coup 
gagnant quel que 
soit le mien 


Je joue en à 
CI CI El Qu Jouez-vous ? à 
Vous avez gagne 
À 3 ii 


Deuxième partie : le programme a tiré les leçons de son échec, la partie est plus 
disputée. 
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0,0, 3 
[,D8- Î 
0, 00- -| 
UB,,= -? 
LR ES -| 
OU, 0= 1 
0. ê 
ORBE- 3 
OD- 3 
ON. pe 
OBDE- û 
0B00= - 
00,,= -{0 
OU,E=  -4 
00, 0- -| 
OU,  -5 
U0BE- 0 
OD0- -| 
000,= -{? 


DO0E= 
0000=-75086 
Appuyez sur ENTER 
pour refaire 

une partie 





Quatrième partie, le programme joue encore mieux. La partie droite de l'écran 
montre la fin de la liste des valeurs des 81 combinaisons de quadruplets. Ainsi 
000. vaut —17, donc XXX. vaut +17, valeur normalement élevée pour une combi- 
naison presque gagnante. 


Tic Tac Toe en trois dimensions 


Dans un échiquier en trois dimensions de trois fois trois fois trois cases, le but 
est d’aligner trois pions de la même couleur, en lignes, colonnes ou diagonales. 
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C'est a vous de commencer 
u jouez-vous ? b5 

ë Je Joue en AL 

Qu qouez-vous ? a8 








U Jouez-vous ? aû 

Vous avez un coup gagnant 
Quel que soit le mien 

Je joue donc au hasard | 
# Je Joue en 

* Qu gouez-vous ? c8 


Pa ET Vous avez gagne 





Fa 


a 











# 





al 
NE; | LE / 











C'est la première partie que joue le programme : ses coups sont aléatoires, sa 
défaite est rapide. 





'est a noi de commencer 
e joue en BS 

u Jouez-vous ? aÿ 

e Joue en C5 

u Jouez-vous ? a8 

e Joue en À£ 





u Jouez-vous ? he 
Je Joue en B4 
u Jouez-vous ? bb 
e goue en B3 
Qu Jouez-vous ? h? 
Je Joue en A6 
Qu gouez-vous ? c4 
Je joue en C2 


ETS (Ou Jouez-vous ? a3 

É #7" [Vous avez un coup gagnant 
vel que soit Le mien 

Je joue donc au hasard 

Je joue en AJ 

Qu Jouez-vous ? cÿ 

Vous avez gagne 








: 











Deuxième partie : le niveau du programme est nettement plus élevé, la victoire de 
son adversaire humain est longue à se dessiner. 
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valeur des differentes 
& Iconbinaisons de diagonales 
















…0= -8pts ,,X- 8 pts 

0: Lpts ,00= -{pts 

OX  -3pts X,= -{pts 
: 3 pts .XX- 


pts 
z -8pts 0,0- 3 pts 
= Q pts 00,= -1pts 
= 76080 pts O0N=  -7 pts 
= 3 pts OX0- 8 pts 
= Tpis Xi 8 pts 
0 Qpts X.X= -3pts 
0,= -3pts X00= -7pts 

XX,= Lpts 
X0= 7pts XXX=-76002 pts 
Appuyez sur ENTER pour refaire 
une partie 





Après la deuxième partie, le programme affiche les valeurs des 27 combinaisons 
de triplets. Certaines d’entre elles auront besoin d'être affinées au cours des par- 
ties suivantes : 00. à une valeur sous-évaluée car cette combinaison mène sou- 
vent à la victoire. 


Comment utiliser ces deux logiciels 


L'utilisation est des plus simples. Lorsque le programme demande “Où jouez- 
vous”, l'utilisateur n’a qu'à rentrer son coup, sous la forme d'une lettre suivie d’un 
chiffre (exemple B4). Tout le reste est géré automatiquement. Chacun commence 
à tour de rôle et, à la fin de chaque partie, le programme modifie certaines varia- 
bles, de façon à assimiler l'expérience de son adversaire. Il visualise ensuite ces 
variables en affichant toutes les combinaisons de triplets de pions (pour Tic Tac 
Toe) et quadruplets (pour puissance 4), accompagnées de leurs nouvelles va- 
leurs. 


COMMENT ÇA MARCHE ? 


La technique la plus utilisée, et jusqu'à maintenant la plus efficace, en program- 
mation des jeux de stratégie, est le procédé minimax alpha-bêta. Bien que cela ne 
soit pas l’objet de cet ouvrage, il est utile de revenir sur ce principe. 


Le procédé minimax est associé à l'exploration de l'arbre des différentes séries 
de coups qui pourraient intervenir durant la suite d'une partie. Cet arbre est consi- 
déré à partir de l’état de la partie au moment où l'ordinateur doit choisir un coup. 
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A chaque étape de l'exploration de cet arbre, l'ordinateur doit évaluer la position 
engendrée. Ainsi une note positive très importante signifiera que la position est 
excellente pour la machine, A l'inverse, une note très négative correspondra à une 
excellente position pour l'adversaire de la machine. Cette évaluation de la position 
est effectuée, très logiquement, par la fonction d'évaluation : une fonction qui dé- 
pend du jeu, donc qui représente, règles à part, la seule connaissance qu'a l’or- 
dinateur de ce jeu. 


Dans l'arbre d'exploration, parmi un groupe de coups entre lesquels devraient 
choisir son adversaire, l'ordinateur supposera que le coup choisi serait celui qui 
minimise la valeur de la position de la machine. Et inversement l'ordinateur choi- 
sirait, parmi un groupe de coups, celui qui maximise son propre score. Tout cela 
est mis au conditionnel car cette exploration n'est qu'une simulation. 


Le plus difficile à réaliser n’est pas le programme d'exploration, mais plutôt celui 
d'évaluation d'une position. Celui-ci se construit en effet de manière très empirique 
car il intègre les très nombreux paramètres qui permettent de juger de l'intérêt 
d'une position. Le programmeur doit décider de leur importance relative, impor- 
tance qui peut varier suivant les cas. De nombreux essais sont nécessaires, et 
finalement la recherche vers la perfection ne s'arrête jamais. 


C'est là tout l'intérêt des programmes PUISSANCE 4 et TIC TAC TOE 3D que 
nous vous proposons. Ils décident du coup à jouer par une classique exploration 
d'arbre (minimax alpha-bêta) d'une profondeur de deux niveaux, mais l'originalité 
réside dans le fait que la fonction d'évaluation se construit “toute seule” au fur et 
à mesure des parties, en tenant compte de ce que joue son adversaire humain. 


En d’autres termes, ces deux programmes puisent dans l'expérience de leur 
adversaire, et se perfectionnent peu à peu, à condition que celui-ci ne joue pas 
“n'importe quoi”. 


Au jeu puissance 4, le but est d’aligner 4 pions, en ligne, colonne, ou diagonale. 
Au jeu du Tic Tac Toe en 3 dimensions, les règles sont les mêmes, à ceci près 
qu'il s’agit d’aligner 3 pions dans un environnement tridimensionnel. Sur le plan 
du fonctionnement, les deux programmes sont assez identiques, prenons donc 
l'exemple du programme de Puissance 4. || suppose que le damier est composé 
d’un ensemble de quadruplets, un quadruplet étant un groupe de 4 cases succes- 
sives. 


Figure 1 


1 2 3 4 5 6 7 
8 9 | 10 | 11 | 12 | 13 | 14 
15 | 16 | 17 | 18 | 19 | 20 | 21 
22 | 23 | 24 | 25 | 26 | 27 | 28 
29 | 30 | 31 | 32 | 33 | 34 | 35 
36 | 37 | 38 | 39 | 40 | 41 | 42 
43 | 44 | 45 | 46 | 47 | 48 | 49 


Les quadruplets sont les groupes de quatre cases. 

Quelques exemples de quadruplets : 

(1,2, 3, 4) ou encore (1, 9, 17, 25) ou (18, 25, 32, 39). 

Les quadruplets qui passent par la case 9 sont : 

(1,9, 17, 25) ; (2, 9, 16, 23) ; (8, 9, 10, 11) mais aussi (9, 10, 11, 12) ; (9, 16, 23, 
80) ; (9, 17, 25, 33). 
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Chaque quadruplet est représenté en mémoire par un nombre virtuellement en 
base 3, en fait converti en base 10 car le Basic ne connaît pas la base 3. Chacun 
des quatre chiffres de ce nombre en base 3 est la représentation de l'état d'une 
des 4 cases du quadruplet : O correspond à une case vide, 1 à un pion noir, 2 à 
un pion blanc, 1, 2 et 3 étant les seuls chiffres autorisés en base 3. 


Figure 2 


COM 


L'état de chaque quadruplet est mémorisé sous la forme d'un nombre en base 3, 
convertit en base 10. Si les ronds sont codés par le chiffre 1 et les croix par 2, ce 
nombre en base 3 est : 

1121 soit en base 10: 

27 + 9 + 2*3 + 1 = 43 


Au cours de chaque partie, le programme mémorise les quadruplets 
engrendrés par les coups de son adversaire et par ses propres coups. 


Figure 3 


On entend par quadruplets engendrés en un coup, l’état de tous les quadruplets 
modifiés par ce coup. Ainsi les quadruplets engendrés par le coup A sont au 
nombre de 5. 





En fin de partie, si son adversaire est gagnant, le programme incrémente les 
notes des quadruplets engendrés par le vainqueur et décrémente ceux engendrés 
par ses propres coups. Il fait de même pour les quadruplets symétriques, et fait 
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l'inverse pour les quadruplets. inverses, c'est-à-dire identiques si l’on remplace 
les pions noirs par des blancs et inversement. 


Figure 4 


quadruplet 1 : 


Ko 
quadruplet 2 : HOMO = Le 
Ke 


quadruplet 3 : 


Le quadruplet 2 est le symétrique du quadruplet 1 
La quadruplet 3 est l'inverse du quadruplet 1. 


Ainsi, par petites touches successives, la note, donc la mesure de l'intérêt de 
chaque quadruplet est affinée. 


Lors de l'évaluation d’une position, le programme effectue la somme des notes 
de chaque type de quadruplet engendré par le coup qui vient d'être simulé. 


A la fin de chaque partie, l'ordinateur affiche les valeurs des différents types 
de quadruplets. 


On peut alors remarquer qu'un quadruplet de quatre pions identiques a soit une 
valeur très élevée (+75 000), soit une valeur très faible (—75 000) ; ces valeurs 
arbitrairement fixées au départ informent le programme que la position correspond 
respectivement à une victoire ou à une défaite. De même un quadruplet de deux 
pions identiques suivis de deux vides aura généralement une bonne note, car il 
est souvent joué par un adversaire intelligent qui sait qu’en multipliant cette combi- 
naison il augmente ses chances de victoire. 


Si son adversaire joue bien, l'ordinateur atteint en quelques parties un excellent 
niveau de jeu. 


LISTE DES PRINCIPALES VARIABLES 


pdiag(i,j) case j du quadruplet i 

case(i) état de la case i (0, 1 ou 2) 

diag(i,j) numéro du i ème quadruplet auquel appartient la case i 
ndiag(i) nombre de quadruplets auquel appartient la case i 
hdiag(i) état du quadruplet i (nombre virtuellement en base 3) 
coeff(i,j) coefficient par lequel il faut multiplier l’état de la case j en 


vue d'ajouter le résultat à hdiag-i) lorsqu'un coup ayant 
modifié l’état de la diagonale i a été joué. 

Cela revient en fait à modifier un des chiffres en base 3 
du nombre hdiag-i). 


mem.diag(i,j) j ième quadruplet engendré durant la dernière partie par 
le camp i (1 ou 2). 
valeur(i) valeur tactique du quadruplet i, c'est ce tableau qui est 


modifié après chaque partie. 
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19 REMRHHEHEEEHENEREREREENÉEREEEE 
28 REM PUISSANCE 4 autodidacte 


JU REM T. L,-A. 
AQ REMFRHEERHRNEHEHEHEEEEEREEEE 
38 MODE 2 
68 PRINT"Patientez une ainute SVP ..." 
70 REM===========22=2:= 
80 REM initialisation 
90 REM=========2=2==22= 


188 DEFINT a-z 

118 DEFREAL v 

128 sachine={:hunain=2:veachine=1:vhumain=2:match.nul=3 
138 DIM pdiag(69,3) ,casel41) ,casec (8,6) 

148 DIM diag(12,41) ,coeff (12,41) ,ndiag(41) 

158 DIM hdiag(68) ,nea. di ag(2,280) ,diaga(12) 

168 DIM inv(88) ,sya (80) ,valeur (88) ,pian$ (2) ,petit.pion$(2} 
178 valeur (40)=75000: valeur (8@)=-75000 

188 petit.pion$(@)=".":petit.pion$(1)=CHR$ 233) :petit.pion$(2)=CHR$(232) 
190 SYMBOL 255,608,60,60,60,60,60,68,60 

208 SYMBOL 254,259,255,295,299,170,85,170,85 

218 FOR i=35 TO 41 

228 cli-35)=i 

230 NEXT i 

248 REM--- inverse et syaetrique des diagonales --- 

258 FOR i8=0 TO 2:i(@)=i8 

268 FOR il=8 TO 2:i(1)=i1 

270 FOR i2=Q TO 2:i(2)=i2 


288 FOR i3=0 TO 2:i(3)=i3 

298 REM--- inverse --- 

300 FOR j=0 TO 3 

318 . IF i(j)38 THEN i1(j)=3-i{j) ELSE i1(j)=0 
320 NEXT j 

330 d=27#i(3)+9#i(2)+3#i (1)+i (8) 

340 invd=27#i1(3)+9#i1(2)+3#i1(1)+i1(0) 
358 inv(d}=invd 

360 REM--- symetrique --- 

370 d2=27#i (8)+9#j (1)+3#i(2)+i (3) 

388 IF d{)d2 THEN sya(d)=d2:s5ym(d2}=d 
398 NEXT i3 

408 NEXT i2 

418 NEXT il 

428 NEXT i8 


438 REM--- dessin des pions --- 

448 DATA 140,140,140,140,140,140,140,18,8,8,8,8,8,8, 
458 DATA 143,145,254,254,254,143,143,10,8,8,8,8,8,8, 
468 DATA 143,145,287,287,287,143,143,18,8,8,8,8,8,8, 
470 DATA 143,143,143,143,143,143,143 

480 DATA 140,140,140,140,140,140,140,10,8,8,8,8,8,8,8 
498 DATA 143,32,32,32,32,32,143,10,8,8,8,8,8,8,8 


œ © oo 
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08 DATA 145,32,92,32,32,32,145,10,8,8,8,8,8,8,8 
18 DATA 145,140,148,140,140,140,143 

20 FOR camp=machine T0 humain 

38 FOR i=i TO 52 

40 READ c:c$=CHR$(c) 

rl pionf(camp)=pion$ (canp}+c$ 

coë NEXT i 

70 NEÏT canp 

088 GOSUB 908 


420 MODE 2 

838 NINDON 59,80, 1,25 

bAB LOCATE#, 1 ,25:PRINTE1, STRINGS (57,287) ; 
658 FOR x=1 TO 57 STEP & 

668 FOR y=1 TO 25 

678  LOCATEHI,x,y: PRINT ,CHRS (255); 
688 NEXT y 

898 NEXT x 

708 FOR x=5 TO 53 STEP 8 

718  LOCATE#I,x,25:PRINT#1 ,RIGHTS(STRSCINT(x/8+1)),1); 
728 NEXT x 

738 6070 1340 


778 y=INT(p/7):x=p-7#y 

780 x=2+B#x:y=4#y+1 

798 FOR ya=i TO y 

808 IF ya>i THEN LOCATE#1,x,ya-1:PRINT#1,STRING$ (7,32); 
818 LOCATE#I,x,ya 

828 FOR ii=1 T0 LEN (pion$(casp)) STEP 10 

838 PRINT#1,MID$(pion$ (caap) ,ii,10); 

848 NEXT ii 

858 NEXT ya 

868 RETURN 


908 FOR x=8 TO 8 STEP 8 
918 FOR y=8 TO 6 

928 casec{x,y)=1 
938 NEXT y 

948 NEXT x 

958 REM--- 

968 FÜR x=8 TO 8 

978 casec(x,6)=1 

988 NEXT x 
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990 REM--- 

1000 FOR x=1 TO 7 

1210 FOR y=0 TO 4 
1820 FOR du=-1 T0 1 


1030 FOR dy=0 TO 1 

1040 IF dx=@ AND dy=@ THEN 1138 
1054 IF dx=-i AND dy=@ THEN 1130 
1868 XAZX!YN=Y 

1078 p=7#yatxn-{ 

1880 pdiag{id,oc)=p 

1898 IF casec(xa,ym)=1 THEN 1120 
1199 IF oc=3 THEN id=idti:60T0 1128 
1110 oc=oc+{:xn=xatdx:ya=yatdy:G60T0 1070 
1120 oc=f 

1130 NEXT dy 

1140 NEXT dx 

1158 NEXT y 

1168 NEXT x 

1170 REM--- 

1180 FOR p=0 TO 41 

1198 i=@ 


1280 FOR id=@ TO 68 
1218 FOR oc=8 T0 3 


1220 IF pdiag(id,oc){>p THEN 12680 
1238 diag(i,p}=id 

1240 coeffli,pl=}"oc 

1258 i=itl 


1260 NEXT oc 

1270 ndiaglip}=i-f 
1288 NET id 

1298 NEXT p 

1308 RETURN 

1310 REM==========22=2--=- 
1320 REM debut de partie 


1340 IF conn=1 THEN conn=@ ELSE cons=1 

1350 IF coan=! THEN PRINT "Vous conaencez":60T0 1408 
1360 IF coœn=@ THEN PRINT "Je cossence":607T0 1534 

1370 REM================-=222- 

1388 REM entree du coup huaain 

1390 REM=============2=-=2=-22=- 

1408 INPUT "Ou jouez-vous "icol:col=col-1 

1418 IF col<B OR col>6 THEN PRINT "coordonnees invalides":60T0 1408 
1428 IF c(col}{@ THEN PRINT "Colonne pleine":6070 1400 
1430 canp=husain:p=c (col) 

1440 GOSUB 2118 

1458 G60TO 1478 

1468 REM---- fin de partie ? --- 

1470 IF fin(}non THEN 2278 
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488 REM=====2===2z=2222222:2=222222222222252z 

1598 REM recherche du meilleur coup fachine 

19388 REM par exploration minimar alpha-beta 

1918 REM 2 niveaus de profonceur 

1528 REM========22222222225222222722722222=2227 

1538 vai=-190008 

1540 REM--- exploration du niveau i --- 

igg8 FOR pû=û T0 à 

568 IF cip@)<@ THEN 1889 

1578 REM--- simulation et evaluation au niveau Î --- 
1568 val2=8 

1599 FOR i=@ TC ndiagtc(p}} 

1680 anc.diag=hdiag(diag{i,c{p@))) 

1414 nouv.diag=anc.diagtcoeff(i,c(p); 

142 val2=val2-valeur (anc.diag)+valeur (nouv.diag} 
1414 hdiag(diag(i,c(p@))}=nauv.diag 

1648 diagn(i)=anc.diag 

1458 NEÏT i 

1668  cip@i=c(p@}-7 


+ 


1688  valm=val2 

1690 IF val2}50000 THEN meilleur.coup=p@:GOSUB 1918:60T0 1978 
1708 vali=108000 

1719 REM--- exploration du niveau 2 --- 

1720 FOR pi=@ T0 b 

1730 IF c(pl)@ THEN 1840 

1740 REM--- siaulation et evaluation au niveau 2? --- 

1730 val2=vala 

1760 FOR i=0 TO ndiag(c(pt}) 


1770 anc.diag=hdiag(diagti,c(pi})} 

1784 nouv.diag=anc.diagt2+coeff(i,c{(pl)} 

1798 val2=val2-valeur (anc.diag)+valeur (nouv. di ag} 
1988 NEXT i 

1819 RENSE ES RSS TER SES SSSR Ses ses eee 


1828 IF val2(=val@ THEN 1870 

1838 IF val2(vall THEN vali=val2 
1840 NEXT pi 

1850 IF vall?val@ THEN val@=vali:aeilleur.coup=p@ 
1860 REM--- reaontee au niveau | --- 
1878  GOSUB 1910 

1888 NEXT p@ 

1498 GOTO 1970 

1988 REM--- remontee au niveau Q --- 
1910 cipB)=cipl)+7 

1928 FOR i=@ TO ndiag(c(p@)} 

1939 hdiag(diag(i,c(p@)))=diage(i) 
1940 NEXT i 

1950 RETURN 

1968 REM---------"-"""""""""" 
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1976 p=ciseilleur.coup)h:canc=machine:col=aeilieur cour 
1988 GCSUB 2119 

1993 IF NOT(val@{-48808 AND finfivæachine) THEN 2030 
2008 PRINT "Vous avez un coup" 

2916 PRINT “gagnant quel que" 

2828 PRINT "soit le mien" 

2078 PRINT ‘de joue en “icol+i 

2848 IF finti@ THEN 2278 

2058 601) :488 


2060 REM=====2222222222222225222222222722=25525255002 
2978 REM sodification du jeu et memorisation des 
2088 REM diagonaies engendrees 

2890 REM entree : cap et p 

2108 REM======22222222222222222s2==s22ssssssssssssz 


2118 FGR i=ÿ TO ndiag(p} 

2129 Od=diagti,pl 

2:39 hdiagidi=hdiagiditeceff{i,p}+canp 

2140 nen.diag(camp,cijlcamp}}=hdiag(d) 

2150 cijlcampi=cij(caapl+i 

2168 IF hdiagid}=40 THEN fin=vmachine:diag.vict=d 
2178 IF hdiag(d)=88 THEN fin=vhumain:diag.vict=d 
2188 NEXT i 

2198 GOSUB 770 

2288 cicol}=c(col)-7 

2219 ncases.pleines=ncases.pleines+i 

2228 IF ncases.pleines=42 THEN fin=match.nul 

2238 RETURN 


2270 IF fin=aatch.nul THEN PRINT "Math nul":60T0 2549 
2288 IF fin=væachine THEN PRINT “J'ai gagne" 
2290 IF fin=vhunain THEN PRINT "Vous avez gagne" 


2318 REM aodification des valeurs des 

2320 REN diagonales jouees par le gagnant 
2338 REM durant la derniere partie 

2340 REM==========2=====2===2222=2===2=2=7 
2358 gagnant=fin:perdant=3-fin 

2368 IF gagnant=sachine THEN 2540 

2370 casp=gagnant:60SUB 2418 

2388 caap=perdant:60SUB 2419 

2390 G0T0 2548 

2400 REM--------- 

2418 FOR i=@ TO cij(caap)-1 

2428 sea=nea.diag(caap,i) 

2430 valeur (inv(men))}=valeur (inv(ses)}+{ 
2448 aeal=sya(inv(aea)) 

2458 IF aeal(>@ THEN valeur (aeai}=valeur (neai)+{ 
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2468 valeur (aea)=valeur (aea)-1 

2478  aea2=sya(nen) 

2488 IF aea2()8 THEN valeur (aen2)=valeur (aea2)-1 
2490 NEXT i 

2388 RETURN 

2519 REM==========2=2=22=22- 

2528 REN re-initialisation 


2548 FOR i=35 TO 41 

2330 c{i-35)=i 

2568 NEXT i 

2570 FOR d=0 TO 68 

2588  hdiag(d)=8 

2598 NEXT d 

2698 fin=non 

2618 cijll)=B:ci j(2)=@ 

2628 GOSUB 2708 

2638 PRINT "Appuyez sur ENTER" 
2648 PRINT "pour refaire": INPUT "une partie",repf$ 
2658 ncases.pleines=8 

2668 GOTO 628 


2670 REM===========2=2=2=2=222=2=222=222==2=2- 

2688 REM affichage des valeurs des diagonales 

2690 REM======2==2222222222=22222222222222227 

2708 PRINT "= . 

2718 PRINT'valeur des":PRINT"combinaisons de":PRINT"quadruplets" 
2728 PRINT "=" . 

2730 FOR i=1 TO 88 

2748  il=i 


2758  d(@)=INT(i1/27):d(1)=INT((i1-27#d (8) )/9) 

2768 d(2)=INT((it-9#d(1)-27#d(8))/3):d(3)=i1-27#d(@)-9#d(1)-3#d (2) 
2778 FOR j=0 T0 3 

2788 PRINT petit.pion$(d{j))}; 


2798 NET j 

2808 PRINT "=";USING "####H"; valeur (i); 
2818 PRINT 

2820 NEXT i 

2838 PRINT "=" ' 


2840 RETURN 

2858 u$sINKEYS: IF w$="" THEN 2850 

2860 IF w$=" * THEN RETURN 

2878 SAVE" d"#CHRS (oip+48)+".LOR",b,49152,16384:0ip=oip+1:RETURN 
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AO REMEEHEEEEEERRREERREEREREHEEERERE 
28 REM TIC TAC TOE 3 DIMENSIONS autodidacte 
30 REN T. L.-A, 

AO REMEEREEEHEREEEEEREENREREEEEREEREEERENEE 
58 PLOT 1,1,1 

68 MODE 2 

70 PRINT'Patientez une ainute SVP ..." 


119 DEFINT a-2:DEFREAL v 

128 aachine={:vaachine=i 

138 husain=2: vhurain=2 

148 satch.nul=3 

158 DIN pdiag(48,2) ,hdiag(48) 

168 DIM diag(13,26) ,coeff (13,26) ,ndi ag (26) ,case{26) ,valeur (26) 
178 DIM cij(2) ,aen.diag(2,200) ,inv(26) ,5ym(26) ,diaga(13) 

188 DIM pieces (2) 

198 valeur (13)=75008: valeur (26)=-75000 

208 piecef(8)=".":piecef(1)="O":piece#(2)="X" 

218 REM--- inverse des diagonales (XX0 est l'inverse de 00) --- 
228 DATA 0,2,1,6,8,7,3,9,4,18 

230 DATA 20,19,24,26,25,21,23,22 

248 DATA 9,11,10,15,17,16,12,14,13 

258 FOR i=0 TO 26 

268  READ invli) 

270 MENT i 

288 REN--- symetrique des diagonales (XX0 est le synetrique de OX) --- 
298 DATA 4,12,2,18,1,9,9,21,7,19,8,24,11,19,14,22,17,25 

300 FOR i=i T0 9 

310 READ a,b 

328 syata)=b:5ym(b)=a 

338 NEXT i 

340 GOSUR 998 


380 MODE 2:WINDON 50,79,2,24 

398 FOR y=32 T0 256 STEP 112 

430 FOR dy=2 TO 14 STEP 4 

418 MOVE 0,y-dy-1:DRAN 288,y-dy-1:DRAW 384,y-dy+95 
420  NEXT dy 

438 FOR x=@ TO 288 STEP 94 


448 MOVE x,y 

450 DRAW x+96,y+96 

468 NEXT x 

478 FOR d=4 TO 94 STEP 32 
499 MOVE d,y+d 


499 DRAM d+288, y+d 
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58 NEXT d 

518 NEXT y 

528 MOVE 390,15: DRAN 390,390: DRAN 639,390 

530 DRAW 839,15: DRAN 398,15 

548 FOR x=7 TO 31 STEP 12 

550 FOR y=18 TO 24 STEP 7 

568  LOCATER,x,y:PRINT#I,CHRS(65+(x-7)/12) ; 
578 NEXTy 

584 NEXT x 

590 i=8 

608 FOR d=8 TO 8 STEP 4 

&t8 FOR y=5 TO 19 STEP 7 

628 LOCATE#1 ,47-d,y+d/2: PRINT ,CHRS(494i)ssizi-1 
&3A  NEXT y 

648 NEXT d 

858 60TO 1200 


698 xp=64+9btx+32#2 

700 xp=64+96#x+32#2 

718 yp=48+112#y+32#2 

728 IF camp=machine THEN 750 

730 IF caap=humain THEN 818 

740 REM--- affichage d'un carre --- 

758 FOR dy=0 T0 2 

768 MOVE xp+45,yp+10+dy:DRAN xp-24,yp+10+dy 

770 DRAN xp-45,yp-16+dy:DRAW xp+24,yp-10+dy: DRAM xp+45,yp+10+dÿ 
788 NEXT dy 

790 RETURN 

808 REM--- affichage d'une croix --- 

818 FOR dy=@ TO 2 

828 MOVE xp+45,yp+i+dy:DRAN xp-45,yp-10+dy 

850 MOVE xp+24,yp-10+dy:DRAW xp-24,yp+10+dy 

840 NEXT dy 

854 RETURN 

869 REM===sssssasssssassezssszszzzzzszssss22ssssszzzszssssssssssss2s 
678 REM reperage de la position de chaque case dans chaque diagonale 


898 DATA 1,10,19,1,4,7,1,13,25,1,2,3,1,11,21 

908 DATA 1,5,9,1,14,27,10,13,16,18,11,12,10,14,1 
918 DATA 19,13,7,19,22,25,19,11,3,19,28,21,19,14,9 
928 DATA 19,23,27,4,13,22,4,9,6,4,14,24,13,14,19 
938 DATA 22,14,6,22,23,24,7,18,25,7,5,3,7,14,21 
g48 DATA 7,8,9,7,17,27,16,14,12,18,17,18,25,14,3 
958 DATA 25,23,21,25,17,9,25,26,27,2,11,20,2,5,8 
968 DATA 2,14,26,11,14,17,20,14,8,20,22,28,5, 14,23 
978 DATA 8,17,26,3,12,21,3,6,9,3,15,27,12,15,18 
988 DATA 21,15,9,21,24,27,6,15,24,9,18,27 
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998 FOR id=@ TO 48 

1908 FOR oc=8 TO 2 

1914 READ a:pdiag{id,oc}=a-1 
1828 NEÏT oc 

1838 NEXT id 

1848 FOR p=@ TO 26 

1950  i=@ 

1968 FOR id=@ TO 48 

1870 FOR oc=8 TO 2 


1080 IF pdiag(id,oc}{>p THEN 1120 
1890 diagti,p}=id 

1100 coeff(i,p)}=3"oc 

1119 isitl 


1128 NEXT oc 

1130 ndiag(p)=i-1 

148 NEXT id 

1158 NEXT p 

1169 RETURN 

1179 REM==========2222222 

1188 REM debut de partie 

1199 REM==========2===2=2: 

1208 IF comn=i THEN conn=@ ELSE comm: 

1210 IF comn=i THEN PRINT "C'est a vous de commencer":G60TDO 1268 
1228 IF conm=@ THEN PRINT "C'est à oi de commencer ":G60T0 1458 
1230 REM=======2222222222222555 

1248 REM entree du coup huaain 

1299 REM=====2==22222222222222 

1268 INPUT "Ou jouez-vous “irep$ 

1279 IF LENtrep#$){}2 THEN 1378 

1288 x=ASC(UFPERS (LEFT#(rep$,1))}-65 

1290 yz=VAL (RIGHTS (rep$,11)-1 

1300 IF x0 OR x>2 THEN 1378 

1310 IF yz<0 OR yz>8 THEN 1378 

1320 p=xt3#yz 

1338 IF case(p}{>@ THEN PRINT "Case occupee":6070 1268 
1340 caap=huñain 

1350 G60SUB 2020 

1360 6070 1398 

1378 PRINT “coordonnees invalides":5070 1260 

1380 REM---- fin de partie ? --- 

1390 IF fintènon THEN 2190 


1418 REM recherche du aeilleur coup machine 
1420 REM par exploration ainimax aipha-teta 
1430 REM 2 niveaux de profondeur 


1458 val®=-100000 
1480 REM--- exploration du niveau ! --- 
1476 FOR p8=8 10 26 


1480 
1498 
1588 
1518 
1928 
1530 
1540 
1550 
1568 
1578 
1580 
1598 
1600 
1618 
1620 
1638 
1640 
1658 
1660 
1678 
1680 
1690 
1700 
1718 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1798 
1808 
1818 
1828 
1850 
1840 
1850 
1868 
1870 
1880 
1890 
1988 
1918 
1928 
1938 
1948 
1950 
1968 
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IF case(p@)(>@ THEN 1808 

REM--- siaulation et evaluation au niveau 1 --- 

val2=Q 

FOR i=@ TO ndiag(p0) 
anc.diag=hdiag(diag(i,p8)) 
nouv.diag=anc.diagtcoeff (i,p8) 
val2=val2-valeur (anc.diag)+valeur (nouv. di ag) 
hdiag(di ag (i,p@) }=nouv.diag 
diage(i)=anc.diag 

NEXT i 

case{p@)=sachine 


vala=val?2 
IF val250000 THEN aeilleur.coup=p@:G60SUB 1830:G60T0 1888 
vali=100080 
REM--- exploration du niveau 2 --- 
FOR pi=8 TO 26 
IF case(pi)(>8 THEN 1768 
REM--- siaulation et evaluation au niveau 2 --- 
val2=vala 
FOR i=@ TO ndiag(pl) 
anc.diag=hdiag(diagli,pt)) 
nouv.diag=anc.diag+2#coeff(i,pi) 
val2=val2-valeur (anc.diag)+valeur {nouv. di ag) 
NEXT i 


IF val2=val@ THEN 1798 
IF val2(vali THEN vali=val2 
NEXT pi 
IF vali)val THEN val@=vall:aeilleur .coup=pl 
REM--- renontee au niveau | --- 
60SUB 1830 
NEXT p@ 
GOTO 1880 
REN--- resontee au niveau @ --- 
case (p@)=8 
FOR i=@ TO ndiag(p@) 


hdiag(diag(i,p@))=diagali) 
NEXT i 
RETURN 
p=aeilleur.coup:caap=aachine 
GOSUB 2028 
IF NOT(val@(-48888 AND fin(}vaachine) THEN 1948 


PRINT "Vous avez un coup gagnant" 

PRINT "Quel que soit le sien" 

PRINT "Je joue donc au hasard" 

PRINT “Je joue en "3CHR$(65+x) RIGHTS (STR$(1+y+3#2) ,1) 
IF finénon THEN 2190 

G60TO 1268 
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1978 REM=========22==2=2=2=2222=2=222=22222222222= 
1988 REM aodification du jeu et sesorisation des 
1998 REM diagonales engendrees 

2088 REM entree : cap etp 

2410 REM================2==2=22222=2=22=2==2===22==2==2- 


2028 FOR i=@ TO ndiag(p) 

2038 d=diag(i,p} 

2048  hdiag(d)=hdiag(d)+coeff{i,p)+#caap 

2050  aea.diag(caap,cij(caap)}=hdiag(d) 

2068 cijlcaap}=cijlcanp})+ 

2070 IF hdiag(d)=13 THEN fin=vaachine:di ag. vict=d 
2088 IF hdiag(d})=28 THEN fin=vhusain:diag.vict=d 
2098 NEXT i 

2108 caselp)=canp 

2118 2=INT(p/9):y=INT((p-9#2)/3):x=p-9#2-3#ÿ 

2128 GOSUB 698 

2130 ncases.pleines=ncases.pleines+i 

2148 IF ncases.pleines=27 THEN fin=match.nul 

2150 RETURN 

2168 REM======2=2===2==2=-22=2==2==222=- 

2178 REM annonce de fin de partie 

2189 REM==============2=2==2==2==2--- 

2190 IF fin=match.nul THEN PRINT “Math nul":6070 2460 
2200 IF fin=vmachine THEN PRINT “J'ai gagne" 

2218 IF fin=vhumain THEN PRINT "Vous avez gagne" 
2220 REM==========2==2===2====22=2=2==2=2==2277 

2230 REM modification des valeurs des 

2240 REM diagonales jouees par le gagnant 

225€ REM durant la derniere partie 

22080 REM=====22==22522sss2ss=2s=sssssssss 

2276 gagnant=fintperdant=3-fin 

2280 IF gagnant=machine THEN 2460 

2290 cang=gagnant: 60SUB 233 

2308 canp=per dant: GOSUE 2330 

2310 6957 2469 

2320 REM------—- 

2338 FOR i=@ T0 cij(camp}-1 

2340 sen=ner.diag(canp,i! 

23580 valeur {invimem))}=valeur (inv(nem)}+f 

2368 nenl=sym(invinen)) 

2570 IF aentff THEN valeur (nemt)=valeur (nentiti 
2388 valeur (mem) =valeur {nem!-1 

2360  ses2=symimeni 

2400 IF memii;0 THEN valeur {mem2}=valeur imem2)-i 
2418 NEXT 

2428 RETURN 


2440 BEM re-initialisation 
2450 REM===222222222222222 
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2468 FOR p=8 T0 26 
2478 case(p}=0 

2498 NEXT p 

2490 FOR d=0 TO 49 
2508  hdiag(d)=0 

2318 NEXT d 

2328 fin=non 

2330 cijli)=@icij(21=0 
2540 GOSUB 2618 

2598 INPUT "Appuyez sur ENTER pour refaire une partie",repf 
2560 ncases.pleines=û 
2570 G60TO 380 


2588 AFM=========2=22=2=2222=222222222222=52225 
2590 REM affichage des valeurs des diagonales 
2600 REM=======2==2=22=22=2==2==22=2222222222 
DR PRINT = « 


2620 PRINT " valeur des differentes" 

2838 PRINT “cosbinaisons de triplets" 

2848 PRINT "----- ÿ 

2658 FOR i=1 TO 28 

2668  it=i 

2878 ciQ)=INT(i1/9):CCHI=INT((iI-Qkc(@))/3):c(2)=i1-3c(1)-9#c (0) 
2688 FOR j=0 TO 2 

2698 PRINT piecef(c{(j}}; 

2780 NEXT j 

2718 PRINT "="s;USING "####f"; valeur (1)::PRINT " pts": 
2728 IF INT(ÿ/2)€3i/2 THEN PRINT “ "; 

2730 NEXT i 

2748 PRINT "--------- " 

2750 RETURN 





CHAPITRE 4 
LES SYSTÈMES EXPERTS 


DES APPLICATIONS RENTABLES 


Les systèmes experts (SE) constituent un des rares domaines de l'intelligence 
artificielle réellement opérationnels. Avec les disciplines liées aux fonctions de la 
perception, nous abordions certains, parmi les plus prometteurs, des secteurs de 
la recherche en intelligence artificielle. Les systèmes experts tiennent, eux, déjà 
leurs promesses. Grâce à eux, l'intelligence artificielle a acquis ses lettres de 
noblesse dans les laboratoires les plus importants, non seulement publics, mais 
aussi privés (IBM, ICL, Schlumberger, SRI International, etc.). Ce dernier point est 
très significatif : ces laboratoires ne s’intéresseraient probablement pas à un sec- 
teur non rentable à court terme : non rentable n'est certainement pas le qualificatif 
à appliquer aux systèmes experts. 


Ces systèmes font désormais partie de la panoplie des instruments les plus 
sophistiqués des spécialistes de tout poil. Comme son nom l'indique, un système 
expert simule le raisonnement d’un expert. Les domaines couverts peuvent aller 
de la médecine à la détection de pannes en passant par la prospection géologique, 
la chimie etc. c'est-à-dire tous ceux nécessitant un avis d'expert. Or, la différence 
fondamentale entre un expert humain et un système expert fait rêver tous les PDG 
des grandes entreprises. 


Quelques systèmes experts 


Casnet Weiss et Kulikowski Médecine (Glaucome de l'œil) 
(U. de Rutgers) 

Centaur Aikins Médecine 
(U. de Stanford) 

Crib Addis Détection de fautes 
(ICL) 


Crysalis Feigenbaum et Engelmore | Détermination de la structure de 
(Stanford) protéines à partir de densités 
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Nom du SE 


Université de Stanford & | Engineering 
IBM 


















Dentral Lederberg Science (lier SE : 1965) 


Dipmeter Davis Déterminatioin de couches géo- 


logiques 
Emycin Van Melle Extended MYCIN. Engineering 
Expert Weiss et Kulikowski Engineering 


Gamma Barstow Science 


U. de Yale 
_—+ 


Headmed Heiser Médecine 





Internist Pople Médecine 





Litho Bonnet (Bi) Aide à la recherche pétrolière 
Schlumberger 


MDX Chandrasekaran Médecine, aide au diagnostic des 
maladies du cholestérol 


Mycin Shoriliffe Médecine, aide à la décision pour 
Stanford les infections bact. du sang 





Oncocin Shortliffe et Scott Médecine, aide à la décision dans 
Stanford la chimiothérapie des leucé- 
miques 


Prospector Aide à la prospection minière 


Raffles Addis Détection de pannes 
ICL 
Rita Anderson Engineering 
Rand corporation 
Simmias Laurière et Perrot Aide à la recherche pétrolière 
Schlumberger 


Un système expert ne tombe jamais malade, il n’a pas d'états d'âme, il ne coûte 
plus un centime après la phase de développement, ne demande jamais d'aug- 
mentation ni ne menace de passer à la concurrence en cas de refus. 











A côté de ces avantages, le point le plus important. et le plus dur à avaler : les 
systèmes experts égalent l'efficacité des experts qui leur ont servi de mentor. 
Contrairement à tous les autres systèmes d'intelligence artificielle, ceux-ci, et eux 
seuls, sont véritablement opérationnels. C'est dire leur enjeu économique et la 
méfiance qui accompagne toujours ce genre de révolution. 
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QU'EST-CE QUE C’EST ? 


Comme nous l'avons dit précédemment, on distingue deux disciplines fonda- 
mentales en informatique : l’algorithmique et l'heuristique. Plus une troisième, la 
statistique qui intervient dans les deux précédentes. Pour être véritablement effi- 
cace, un système d'intelligence artificielle doit obligatoirement exploiter ces trois 
disciplines. La caractéristique principale d’un système expert (SE) tient au fait que 
l’heuristique est largement privilégiée par rapport à l’algorithmique et la statistique. 
Cela signifie que pour résoudre un problème, un système expert exploitera un 
ensemble de règles de raisonnement reposant sur un ensemble de faits, plutôt 
que de suivre un algorithme de résolution l'amenant directement à la solution 
recherchée. 


Principal avantage de la démarche : contrairement à l'algorithmique, il n'est pas 
nécessaire de connaître a priori le chemin qui mène au résultat cherché. Ce che- 
min peut être déterminé en cours de recherche en simulant le raisonnement hu- 
main. Grâce à ce mode de fonctionnement, un système expert peut très bien 
s'appliquer à des sciences inexactes : expérimentales, humaines, etc. Tous do- 
maines où le moyen de parvenir à une solution est aussi inconnue que la solution 
elle-même, où d'ailleurs ces moyens comme parfois les solutions sont multiples. 


ALGORITHMIQUE ET HEURISTIQUE PAR L’EXEMPLE 


Pour mieux comprendre les différences fondamentales entre approche algorith- 
mique et heuristique d'un problème, appliquons successivement ces deux tech- 
niques dans la résolution d'un problème élémentaire : une équation du second 
degré. 


Soit l'équation à résoudre : aX + bX + c=0 
C'est-à-dire trouver X tel que l'équation soit vraie, a, b et c étant connus. 


Deux voies peuvent être envisagées pour parvenir à la solution : soit appliquer 
la “formule magique” apprise par cœur par l'écolier ou l'ordinateur, soit chercher 
cette solution par tâtonnements. La première solution relève de l'algorithmique, la 
seconde de l'heuristique. 


L'ALGORITHMIQUE 


On considère que l'équation aX + bX + c = 0 est de la forme AX + BX + C = 0, 
À, B, C étant quelconques. La formule magique à appliquer est X = C/(A+B) si A 
diffère de B. On remplace alors A, B, C par a, b, c et on a X = -c/(a+b). 


Et cela sans effort de raisonnement, mais la mémoire est mise à rude épreuve 
et un problème un peu sérieux nécessitera la mémorisation de centaines de for- 
mules de ce type ! 


L'inconvénient majeur de cette méthode réside dans la trop grande spécialisation 
des algorithmes. Ainsi celui-ci, capable de résoudre l'équation aX + bX + c = 0 
baisse les bras face à une équation aussi ressemblante que aX + bX + cX + d = O. 


On dit souvent que les ordinateurs sont bêtes au point qu'il faut tout leur préciser, 
jusqu'à la moindre addition à effectuer : c'est exact en ce qui concerne l’algorith- 
mique. La grande révolution des systèmes experts et de l'heuristique en général 
tient justement au fait que, tout comme l'homme, le système se construit son 
propre algorithme en fonction du problème à traiter. 
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L'HEURISTIQUE 


L'écolier qui ne désire pas apprendre par cœur toutes les formules existantes 
dispose d'une alternative autrement plus payante : trouver n'importe quelle for- 
mule par le raisonnement. La solution est alors construite pas à pas. Avantage : 
face à des problèmes différents mais de même type (deux équations algébriques, 
par exemple) les mêmes règles sont utilisées avec succès. Cette approche relève 
de l’heuristique et les systèmes experts en sont une application. Si l’on reprend 
Lg exemple d'équation du premier degré, trois règles suffisent à retrouver la 
solution : 


REGLE 1: SIX+A=0 ALORS X=-A 
REGLE 2: SIAX+BX+C=0 ALORS (A+B)X+C=0 
REGLE 3: SIAX=B et A<>0 ALORS X=B/A 


Le système expert applique alors ces règles sur notre exemple aX+bX+c=0 : 


REGLE 2 > (a+b)X+c=0 
REGLE 1 > (a+b)X=-c 
REGLE 3 > si a+b<>0 ALORS X=-c/(a+b) 


STRUCTURE D'UN SYSTÈME EXPERT 


Toute l'intelligence artificielle gravite autours de ces deux pôles : la représen- 
tation de la connaissance d'une part, la démonstration automatique de l’autre. Les 
bases de données, les bases d'images appartiennent au premier pôle. La dé- 
monstration automatique de théorèmes ne relève que du second. Quand aux 
systèmes experts, ils se situent à la jonction des deux et constituent une des rares, 
pour ne pas dire la seule application opérationnelle qui réalise cette synthèse. 
Pour des raisons multiples, facilité de mise-à-jour des connaissances, efficacité, 
portabilité, les systèmes experts possèdent pour la plupart une structure modu- 
laire, comportant deux parties : 


— une base de connaissance, 
— un démonstrateur (ou moteur d'inférence). 


LA BASE DE CONNAISSANCE 


Elle se compose de faits et de règles. Sa principale originalité par rapport à une 
base de données classique, est que les règles peuvent enrichir la base de faits, 
par l'intermédiaire du moteur d'inférence. 


Considérons la base de connaissance suivante (exemple 1) : 
1. Base de faits : (B,E) 


2. Base de règles : 
R1:AetB>F 
R2:BetH>A 
R3 :Bet C et D => A 
R4:E>C 
R5:F>G 
R6:C>D 
R7:138B 
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Les faits sont des assertions telles que “Socrate est un homme”. Les règles 
mettent en relation certains faits entre eux. Les relations peuvent être de type très 
divers, la plus courante étant la relation de cause à effet (si. alors). Par exemple 
et pour reprendre le célèbre sophisme, une règle pourra être “si homme alors 
ours Dans l'exemple ci-dessus, la règle R1 signifie “si À et B sont vrais alors F 
est vrai”. 


LE MOTEUR D'INFÉRENCE 


1. Chaînage avant 


Partant de la base initiale, on applique les règles dont les prémisses sont 
satisfaites. Les faits ainsi déduits sont ajoutés à la base de faits. Reprenons 
l'exemple 1 et appliquons cette technique. À chaque règle appliquée, la base s'en- 
richit d'un nouveau fait. 


Règle appliquée Base de faits 
(B,E) 

R4:E>C (B,C,E) 

R6 :C>D (B,C,D.,E) 

R3 :BETCETD=A (A,/B,C,D.E) 

R1:AETB>F (A,/B,C,D.E,F) 

R5:F>G (A,B,C,D,E,F,G) 


2. Chaînage arrière 


Plutôt que de tenter d'appliquer chaque règle à chaque fait, ce qui se révèle 
parfois long, on se concentre sur un but à atteindre, par exemple G. On examine 
alors toutes les règles qui ont G pour conséquence et pour chacune de ces règles, 
on regarde si les prémisses appartiennent à la base de faits. Si c'est le cas, le but 
est démontré, sinon on considère les prémisses comme autant de sous-buts à 
atteindre et on itère le processus, c'est-à-dire que l'on regarde les règles qui ont 
ces prémisses pour conséquence et ainsi de suite. 
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Règles 
AetE = F (1) 
BetH — À (2) 
B et C et D — A (3) 


* E — C (4) 
F — G (5) 
G — D (6) 
| — B (7) 





Ainsi dans l'exemple 1, et en s’aidant de l'arbre ci-après, on voit que G est 
conséquence de F (Règle R5). Or, F n'appartient pas à la base de faits et devient 
donc le nouveau fait à démontrer. Par R1, F est conséquence de A et B. Le fait B 
appartient à la base de faits, mais par le fait À, celui-ci devient donc le nouveau 
fait à démontrer. À est conséquence de deux règles : R3 et R2. Ici intervient la 
notion d'ordre d'application des règles. Dans les systèmes dits statiques, cet ordre 
est défini une bonne fois pour toutes. On appliquera donc R2, puis, en cas d'im- 
passe, R3. 


Dans des moteurs d'inférence plus sophistiqués, cet ordre peut dépendre du 
contexte. Par exemple on choisira la règle qui a le plus petit nombre de prémisses 
non satisfaites. Supposons notre système statique, et appliquons donc la règle 2 
en priorité : les faits B et H en sont les prémisses. Or, H n'est conséquence d’au- 
cune règle et n’est pas dans la base de faits. Il est donc impossible à démontrer 
et il faut répartir du but À, conséquence de la règle R3. Les prémisses sont B, C 
et D. Le fait B appartient à la base. Le fait C est conséquence de R4, dont l'unique 
prémisse E appartient à la base. 


Enfin, le fait C étant démontré (et donc ajouté à la base), le fait D l'est aussi, 
puisqu'il est une conséquence de la règle R6 dont C est une prémisse. Finalement, 
le but G a été atteint par le chemin : 


(C) 
— 4 (D) — (C) + (E) 


(G) æ— (F) < 
(F) 


) 
E) 


Moteur d’inférence d’ordre 1 


L'exemple qui nous a servi de support pour montrer la différence entre chaînage 
avant et chaînage arrière utilise un moteur d'inférence d'ordre zéro (on parle de 
logique d'ordre zéro). Cela signifie que les prémisses et les conséquences des 
règles sont des faits explicites. Par contre l'exemple portant sur les équations 
algébriques faisait appel à un moteur d'inférence d'ordre un : les prémisses et les 
conséquences sont des variables et peuvent s'appliquer à toute une classe de 
faits, ainsi la règle : X+A=0 = X=-—A est vraie pour A=0,1,2 etc., À peut même 
être une formule algébrique. Cette seconde catégorie de moteurs d'inférence pos- 
sède une capacité de traitement bien supérieure car elle permet un niveau d'abs- 
traction supplémentaire. Pour cette raison, les systèmes experts à moteurs 
d'inférence d'ordre zéro sont cantonnés à des domaines de type “initiation” ou 
ludiques. 
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D’autres structures de systèmes experts 


La structure de systèmes experts que nous avons présentée est la plus clas- 
sique, mais il en existe bien d’autres. Ainsi le programme BALANCE, que nous 
vous soumettons plus loin, tente par un moyen original dont nous allons vous faire 
É description, de reproduire le raisonnement qui conduit un médecin à fournir un 

iagnostic. 


PRÉSENTATION DU PROGRAMME BALANCE (DIAGNOSTIC) 
COMMENT L'UTILISER ? 


La petite base de connaissance associée à cette application est du domaine de 
la médecine. Elle constitue un exemple à ne pas prendre au sérieux et ce chapitre 
contient tout les renseignements nécessaires pour constituer une base de 
connaissance dans un domaine différent (diagnostic de panne en automobile ou 
en informatique par exemple). 


Ce logiciel connaît deux commandes : 


— la commande L qui provoque l'affichage de la liste des maladies connues par 
le logiciel ; 

— la commande D, comme diagnostic, qui, comme son nom l'indique délivre un 
diagnostic au terme d'un dialogue constitué de questions (de la part de l'ordina- 
teur) et de réponses (de votre part) sous forme d'une lettre, O pour oui, N pour 
non et P pour peut-être (à n'utiliser que lorsque vous ignorez la réponse). À chaque 
stade du dialogue, la maladie la plus probable est affichée dans la fenêtre droite, 
accompagnée de la liste de ses symptômes. Lorsqu'une maladie dépasse un 


DIAGNOSTIC MALADIE S/ SYMPTOMES 
ROUGEOLE : 198 z #66 ROUGEOLE 3243668 
le patient n'a Jamais eu la rougeole 


-0- 
eruption sans demangeaisons par macu 
les confluentes (taches a se reuni 
ssent), descendantes du haut en bas 
du corps 




























DIALOGUE 


10 
ES-CE QUE LE FAIT SUIVANT EST VRAI: 


toux 
20 


ÉS-CE QUE LE FAIT SUIVANT EST URAI: 
Les yeux sont rouges et larnoyants 


10 
ES-CE QUE LE FAIT SUIVANT EST VRAI: 
gcoulement nasal et eternuenents 


20 
ES-CE QUE LE FAIT SUIVANT EST VRAI: 
nous sonnes en automne ou en hiver 
2h 





fievre plusieurs jours avant l'erupt 





les yeux sont rouges et larnoyants 


ecoulement nasal et eternuenents 



















zoui N=non P=peut-etre F-fin 








iste maladies/sumptones DR diagnostic 
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pourcentage de trente, celle-ci est affichée, accompagnée de son pourcentage de 
vraisemblance (voir partie “comment ça marche” pour en savoir plus sur la signi- 
fication de ce pourcentage). Si plusieurs maladies dépassent trente, elles sont 
classées et affichées dans cette même fenêtre, à concurrence de trois. 


COMMENT ÇA MARCHE ? 


Il faut aller chercher le principe du fonctionnement de ce logiciel dans la structure 
de la base de connaissance (c'est-à-dire la base qui contient les informations 
relatives aux maladies). Celle-ci se décompose en trois parties : 


— la liste des symptômes, toutes maladies confondues ; 

— la liste des interactions entre symptômes ; 

— la liste des maladies, à chacune d'elle étant associée une liste de symptômes 
affectée de coefficients. 


LA LISTE DES SYMPTOMES 
Celle-ci est composée : 


— d'un numéro, qui peut être quelconque, et dont la présence évite une refonte 
totale de la base lorsque l’on désire insérer un nouveau symptôme ; 

— d'une formulation abrégée, destinée à construire rapidement la liste des 
symptômes par maladie ; 

— d'une formulation in extenso, qui servira à interroger clairement l'utilisateur. 


LA LISTE DES INTÉRACTIONS ENTRE SYMPTOMES 


Ici réduite à sa plus simple expression, elle peut prendre une importance plus 
grande pour des bases de connaissance de nature différente. Son rôle est d'éviter 
les questions idiotes (lors de la recherche du diagnostic), dans le genre “est-ce 
que la fièvre est comprise entre 38 et 39” alors que précédemment, l'utilisateur a 
répondu “oui” à la question “est-ce que la fièvre est supérieure à 39”. La formur- 
lation de chaque itéraction est du type : 

IF liste de symptômes (vrai ou faux), 
THEN liste de symptômes (vrai ou faux). 


LA LISTE DES MALADIES 


Chaque maladie (désignée par son nom), est suivie de ses symptômes accom- 
pagné de coefficients dans le cas où ils sont vérifiés et dans le cas contraire. 


LA RECHERCHE D'UN DIAGNOSTIC 


Lors d'une tentative de diagnostic, chaque maladie possède un score qui est 
fonction des réponses de l'utilisateur aux questions du logiciel. Ces questions sont 
du type : “est-ce que tel symptôme (affiché in extenso) est vérifié”. 
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Le choix d’un symptôme est déterminé suivant deux règles : 


— le symptôme doit être un de ceux de la maladie qui a obtenu jusqu'alors le 
meilleur score (donc qui est provisoirement retenue) ; 


— la réponse à la question n’est pas encore connue (que ce soit par interrogation 
directe ou par intéraction entre symptômes). 


DIAGNOSTIC MALADIES/SYMPTOMES 
GRIPPE : 100 % 







2666 GRIPPE 2668 
la fieure est superieure à 39 degres 
- à - le debut à ete brutal 
douleurs diffuses (articulations-nus 
cles-tete) 


- 4 - le patient est abattu 
- 5 - frissons 












ES-CE QUE LE FAIT SUIVANT EST URAI: 
douleurs diffuses (articulations-nus 
cles-tete) 


1 0 
ES-CE QUE LE FAIT SUIVANT EST VRAI: 
le LL est abattu 


is. %E QUE LE FAIT SUIVANT EST VRAI: 
ne 


Ës- %E QUE LE FAIT SUIVANT EST URAI: 
troubles respiratoires et digestifs 
10 


troubles respiratoires et digestifs 




















1STe Maladles/ SyMPLOMES = (1agn05t1C 


Après chaque question, les trois maladies ayant obtenu le meilleur score sont 
classées et affichées, à la condition toutefois d’avoir obtenu un score supérieur à 
80 % (le score de 100 % correspondant à la vérification de tous les symptômes). 
Ce classement n’est qu'indicatif et doit être sujet à interprétation. Un score de 
60 % pour la scarlatine ne signifie pas que le patient a 60 % de la scarlatine, mais 
qu'il vérifie 60 % de ses symptômes, étant entendu que la médecine n'est pas une 
science exacte, et qu’il n’est pas toujours possible de mettre en évidence tous les 
symptômes d'une maladie. 


D'autre part il faut savoir que la scarlatine est une forme d’angine, donc si le 
patient contracte la scarlatine, l’angine sera certainement classée en second. 
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DIAGNOSTIC MALADIES/ SYMPTOMES 


6 OTITE #66 
- { - douleur dans l'oreille 
- à - baisse de l'audition 

- fievre 
- 4 - vonissenents 










OTITE : 83% 









DIALOGUE 


ES-CE QUE LE FAIT SUIVANT EST URAI: 
ous 


is QUE LE FAIT SUIVANT EST VRAI: 
Dia a la deglutition 


fs! LE QUE LE FAIT SUIVANT EST VRAI: 
ner dans l'oreille 


is” CE QUE LE FAIT SUIVANT EST VRAI: 
baisse de l'audition 
20 




























oui N=non P=peut-etre F=fin 





1ste maladies/symptones RE D = diagnostic 


PRINCIPALES VARIABLES 


Symptômes(i,j) symptômes j des maladies i 

maladieS$(i) nom de la maladie i 

nsympt(i) nombre de symptômes de la maladie i 

symptôme(i) numéro du symptôme i. Contrairement aux appa- 


rences, i et symptôme(i) ne font pas double emploi, ce 
dernier permettant l'insertion de nouveaux symptômes, 
sans contrainte de localisation dans le listing. 


sympt.abregef(i) nom abrégé du symptôme i 

symptômes (i) nom in extenso du symptôme i 

valeur(i,j,k) valeur dont est incrémenté le score de la maladie i si le 
j ième symptôme de celle-ci est vérifiée (k=0) ou non 
vérifié (k=1). 

note.globale(i) score atteint par la maladie i au cas où tous ses symp- 
tômes sont vérifiés. 

score (i) score atteint par la maladie i durant la recherche du 
diagnostic. 

miliste(i) liste des maladies candidates classées suivant leur 
score 


mscore(i) liste de ces scores, classés. 
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OO REMAEHENEERHEREERFEEEERE 
28 REM BALANCE (T. L.-A) 
30 REMREHEEEHEREHEEEEREE 
48 MODE 2 

Se GOSUB 3038 


98 DEFINT a-2 

140 naaladies=20 

110 nsynptones.par.naladie=12 

128 nsyaptones=200 

130 vrai.ou.faux=3 

148 inconnu=@:faux=l:vrai=2:peut .etre=3 

138 non=Q:oui=i 

168 DIN syaptones (naaladies ,nsyaptoaes.par .naladie) 
170 DIM naladie$(nnaladies) 

188 DIM nsyapt (nsaladies) 

198 DIM syaptone(nsyaptoses) 

208 DIN syapt.abregef (nsyaptones) 

218 DIM syaptosef (nsyaptones) 

226 DIM valeur (naaladies,nsyaptomes.par.saladie,vrai.ou.faux) 
238 DIM note.globale(naaladies) 

240 DIN score(naaladies) 

258 DIM aliste(naaladies) 

268 DIN nscore(naaladies) 


288 REM syaptones : numero, nos abrege, nom in extenso 

298 REM les nuseros ne sont pas obliges de se suivre 

300 REM ce qui facilite l'insertion 

310 RÉM=====2s22ssssssssssssssssssssssssssesssssssssss=s 

328 DATA 1,t>39, la fievre est superieure a 39 degres 

338 DATA 2,38<t(39,la fievre est coaprise entre 38 et 39 degres 

348 DATA 4,t=normale, la temperature est noraale 

350 DATA 5,fievre,fievre 

368 DATA 6,abattu, le patient est abattu 

376 DATA 7,debut brutal,le debut a ete brutal 

388 DATA 8,douleur deglu,douleur a la deglutition 

398 DATA 9,gorge enflansee, la gorge est enflaañee 

408 DATA 18,ganglions.c, ganglions cervicaux 

418 DATA Î1,douleur oreille,douleur dans l'oreille 

428 DATA 12,baisse audition,baisse de l'audition 

438 DATA 13,courbatures,courbatures 

448 DATA 14,frissons, frissons 

450 DATA 15,aalaise gen. ,aalaise general 

460 DATA 16,douleurs diffuses, douleurs diffuses (articulations-auscles-tete) 
470 DATA {7,troubles resp. et dig. troubles respiratoires et digestifs 
488 DATA 18,jamais eu scarlatine,le patient n'a jamais eu la scarlatine 
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498 DATA 19,eruption en plaques ,eruption en plaques etendues sur le tronc et la 
racine des aesbres 

500 DATA 20,etat particulier de la langue,etat de la langue --) pourtour rouge f 
raise et centre recouvert d'un enduit blanchatre 

318 DATA 21,jamais eu rougeole,le patient n'a jamais eu La rougeole 

928 DATA 22,eruption b,"eruption sans desangeaisons par aacules confluentes (tac 
hes qui se reunissent}, descendantes du haut en bas du corps" 

538 DATA 23,fievre precoce,fievre plusieurs jours avant l''eruption 

540 DATA 24,toux toux 

S90 DATA 25,yeux rouges/larsoyants,les yeux sont rouges et laraoyants 

J68 DATA 26,nez,ecoulement nasal et eternuenñents 

978 DATA 27,jamais eu oreillons,le patient n'a jaaais eu les oreillons 

568 DATA 28,tusefaction part.,tusefaction douloureuse des deux cotes de la tete 
en avant des oreilles 

990 DATA 29,douleur oreille,douleur dans l'oreille (qui provoque chez le nourris 
son cris et insoanies) 

680 DATA 50 ,vosissements,vosissements 

618 DATA 31,b.audition, baisse de l'audition 

628 DATA 32,hoame,le patient est un hoane 

63€ DATA 33,brulures aiction,brulures intenses à La aiction (en urinant) 

640 DATA 34,ecoul.verge,ecoulesent purulent de la verge 

658 DATA 35,autosne/hiver ,nous soases en autoane ou en hiver 

668 DATA 36,obstruction nasale,obstruction nasale 

678 DATA 37,diarrhee,diarrhee 

688 DATA 38,nausees,le aalade ressent des nausees 

698 DATA 39,coliques,coliques 

780 DATA fin 


728 READ if 

730 IF i$="fin" THEN nsympt=i:607T0 1750 
748 i=VAL(i$) 

798 READ s$:syapt.abregef$(i)=5$ 

760 READ s$:syaptomef(i)=5$ 

770 6070 728 


818 IF syaptone(1}=vrai THEN syaptose(2)=faux:syaptone(4)=faux:syaptome(5)=vrai 
828 IF syaptose(2)=vrai THEN syaptose(1)=faux:syaptone (4)=faux:syaptone(S)=vrai 
830 IF syaptose(4)=vrai THEN syaptone(1)=faux:syaptone(2)=faux: syaptome (3) =faux 
840 IF syaptone(5)=faux THEN synptome({)}=faux:syaptose(2)=faux:syaptome (4)=vrai 
858 RETURN 

66 REM===========22222=222222222222222222222222= 

878 REM maladie, leurs syaptoses, suivis de leur 

880 REM ponderation : 

698 REM - s'ils sont verifies 

S08 REN - s'ils ne sont pas verifies 


928 DATA ANGINE 
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938 DATA fievre,19,-18 

940 DATA douleur deglu,10,-1980 
958 DATA gorge enflanaee,18,-18 
868 DATA ganglions.c,8,-8 

978 DATA courbatures, 7,8 

980 DATA malaise gen.,5,-5 

998 DATA frissons, 4,0 

1888 DATA fin 


1820 DATA GRIPPE 

1838 DATA t}39,10,-1008 

1848 DATA debut brutal ,10,-2 

1058 DATA douleurs diffuses,10,-1008 
1868 DATA abattu,10,0 

1870 DATA frissons, 6,0 

1880 DATA troubles resp. et dig.,5,8 
1490 DATA fin 

1108 REM------ 

1118 DATA SCARLATINE 

1120 DATA jamais eu scarlatine,0,-1000 
1130 DATA fievre,10,-1000 

1148 DATA douleur deglu,s,-1088 

1158 DATA gorge enflamnee,5,-1000 

1168 DATA ganglions.c,4,-4 

1170 DATA courbatures,3,8 

1188 DATA frissons,2,8 

1190 DATA malaise gen. ,5,-5 

1208 DATA eruption en plaques, 20,-1800 
1218 DATA etat particulier de la langue,28,-1000 
1228 DATA fin 

1230 REM------ 

1248 DATA ROUGEOLE 

1290 DATA jamais eu rougeole,0,-1080 
1268 DATA eruption b,10,-1000 

1270 DATA fievre precoce,!8,-1000 

1288 DATA toux,10,-1000 

1298 DATA yeux rouges/larnoyants,18,-180€ 
1308 DATA nez,8,0 

1318 DATA fin 

1328 REM----—- 

1338 DATA OREILLONS 

1340 DATA jamais eu creilions,0,-:002 
1350 DATA 38{t€39,10,-2 

1368 DATA malaise gen. 5,8 

1376 DÊTA tumefaction part.,25,-1890 
1388 DATA fin 


1408 DATA OTIT 
1410 DATA douleur oreille,i0,-i008 
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1428 DATÉ b.audition,18,-1088 
1433 DATA fievre,5,-2 

1440 DATA vonissesents,5,0 
450 DATA fin 


1478 DATA BLENNHORRAGIE 

1488 DATA honne,8,-1088 

1498 DATA brulures miction,i6,-100€ 
1508 DATA ecoul.verge,i0,-100€ 
1518 DATA fievre,3,0 

{328 DATA fin 

1330 REM------ 

1949 DATA CORYZA SAISONNIER (RHUME) 
1920 DATA automne/hiver .0,-5 

1568 DATA t=norrale,i,-1060 

1578 DÉTA ne2,i0,-1000 

1588 DATA obstruction nasaie,18,0 
1398 DATE fin 

1490 REM------ 

1818 DATA INFECTION INTESTINALE 
1428 DATA fievre,3,8 

1630 DATA diarrhee,10,-5 

1640 DATA coliques,i0,-{ 

1450 DATA vorissements,5,0 

1668 DATA nausees, 5,0 

1870 DATA fin 


1710 REM=======2=2222=22222222=22=22=22222=2222222 

1726 REM renglissages des variables representant 

1730 REM jes caracteristiques de chaque maladie 

J740 REM=S==S==S=2=SS22ss2ss22zS3225223322255257237 

1750 READ maladie 

1768 IF maladief="fin des maladies" THEN nmaladies=maladie-{:G60T0 1960 
1779 aaladief(maladie})=naladief 

1780 READ syaptomef 
179 


1808 REM--- recherche du numero de sysptonef -—- 


i8i® i=t 

1820 IF synptonef=syagt.abregef{i} THEN 1868 

1838 isiti 

1348 Pnsyapt THEN PRINT ERREUR, syaptome ‘'isvapgtomef;"" inconnu "tEND 


IF iinsya 
1358 6070 :82€ 
IBc6 synptomesimaladie,ji21 
1378 READ v 
188€ valeur maladie, ;,vrai}zy 
: 


58 
1698 note.giobaiefmaladiel=ngte.gichalelmaladieit+y 


8 IF syaptosef="fin" THEN nsyagt(maladiei=j-iimaladie=maladiett:j=0:607T0 179è 
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1908 READ v 

1918 valeur (maladie, j,faux)=v 
1920 j=j+1:60T0 1788 

1939 REM========2==22=222=2222222= 
1548 REM entree d'une commande 


1968 INPUT "COMMANDE"; c$ 

1978 c$=UPPER$ (cf) 

1988 IF c$="D" THEN 2050 

1998 IF c$="L" THEN 2608 

2808 PRINT "COMMANDE INCONNUE" 

2910 G0T0 1968 

2028 REM==========2=2==2==22222222222227 

2030 REM entree des donnees - dialogue 

2048 REM==========2==2=====2==2==2=2=2==22=7 

2050 GOSUB 2350 

2868 CLS:m=0:m1=1000 

2070 naladie=@ 

2088 j=0 

2090 a=nliste(maladie) 

2100 IF aliste(@)<iml THEN nl=nliste(@):G0SUB 2690 
2118 s=syaptones{n, j) 

2128 IF syaptome(s)ïinconnu OR score(m){-35 THEN 2288 
2130 PRINT "ES-CE QUE LE FAIT SUIVANT EST VRAI:" 

2148 PRINT syaptone$(s) 

2150 INPUT repf 

2160 rep$f=UPPER$ (rep$) 

2170 IF rep$="0" THEN rep=vrai:60T0 222 
2180 IF rep$="N" THEN rep=faux:60T0 222 
2190 IF rep$="P" THEN rep=peut.etre:G60T 
2200 IF rep#="F" THEN 2910 

2218 PRINT "REPONDRE PAR O,N,P ou F':G0T0 215 

2220 syaptome(s)=rep 

2230 GOSUB 810:REM interactions entre syaptones 

2240 GOSUB 2780:REM calcul des scores des maladies 

225€ GOSUB 2350:REM classement et diagnostic provisoire 
2260 60710 2670 


û 
0 2228 


2288 j=j+l 

2298 IF jonsympt(m) THEN maladie=maladiet{:1F maladie=nmaladies THEN 2900 ELSE 2 
CET) 

2308 GOTO 2114 


2320 REM classement et affichage des maladies candidates 
2334 REM==============2==2==2==2222222222222222222222222 
2340 REM--- transfert des scores en vue du classesent --- 
2350 FOR i=@ TO nmaladies 

2368 alisteli}=i 

2370 ascoreli}=scoreli) 





128] 1.A. SUR AMSTRAD CPC 


2380 NEXT :i 

2390 REM--- tri des maladies suivant leur score --- 

2408 FOR i=naaladies T0 1 STEP-1 

2419 s-0 

2424 FOR j=1 TO i 

2430 IF ascore(j){=ascore(j-1) THEN 2460 

2440 t=ascore(j):ascore(j)=ascore(j-{):ascore(j-1)=t:5=)j 
2450 ta=alistelj):aliste(j)=aliste(j-1):mlistelj-1)=ta 
246@ NEXT j 

2470  i=s 

2480 NEXT i 

2490 REM--- affichage --- 

2580 CLS#1 

2510 FOR maladie=@ T0 naaladies 

2528 a=aliste(maladie) 

2538 IF score(m)(25 THEN 2558 

2540  PRINT#I ,maladief(m);" :"s;score(m); "4" 

2558 NEXT saladie 

2560 RETURN 


2818 FOR a1=0 TO naaladies 

2620 GOSUB 2698 

2839 INPUT "APPUVEZ SUR ENTER" ,rep$ 

2648 CLS 

2658 NEXT al 

2468 CLS#2 

2678 GOTO 1968 

2680 REM==== liste de symptomes d'une maladie ==== 
2698 CL5#2 

2709 PRINT#2,"#4#+ imaladief(al};" ###4" 

2718 FOR syaptone=® TO nsyapt (al) 

2728 PRINT#2," -"syaptonetl;"- “;syaptomef (syaptones (al ,syaptone)) 
2730 NEXT syaptose 

2748 RETURN 


2788 FÜR naladie=@ T0 naaladies 

27198  score(maladie)=0 

2988 FOR i=0 TO nsyapt (naladie) 

2818 etat=syaptone (symptomes (naladie,i)) 

2828 score(naladie)=score(aaladie)tvaleur (maladie, i etat) 
2838 NEXT i 

2849  scorelmaladie)=1@8#score(maladie) /note.globale(maladie) 
2858 NEXT maladie 

2868 RETURN 
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2874 REM=====22===2=2222222222222222222=22=22=222= 
2888 REM fin de diagnostic - re-initialisation 


2988 PRINT “JE NE PEUX AFFINER DAVANTAGE":PRINT "LE DIAGNOSTIC" 

2910 FOR maladie=@ T0 naaladies 

2920  scorelsaladie)=8 

2938 NEXT aaladie 

2940 FOR 5=@ TO nsyapt 

2958  syaptone(s)=8 

2968 NEXT 5 

2970 PRINT “POUR REVENIR AU MODE COMMANDE": INPUT "APPUYEZ SUR ENTER" ,repf 
2988 CLS:CLS#1:CLS#2 

2998 G0TO 1960 


3030 SYMBOL 255,235,0,255,0,255,0,255,0 

3040 MODE 2 

3050 FOR y=7 TO 23 STEP 16 

3060  LOCATE 2,y:PRINT STRING$ (39,255); 

3070 NEXT y 

3088 LOCATE 2,1:PRINT STRING$(39,259) ; 

3090 LOCATE 41,1:PRINT STRING$(39,255) ; 

3108 FOR y=1 TO 23 

3118 LOCATE 1,y:PRINT CHR$(145); 

3128 LOCATE 41,y:PRINT CHR$(143); 

3138 LOCATE 80,y:PRINT CHR$(143); 

3140 NEXT y 

3158 LOCATE 16,7:PRINT " DIALOGUE "; 

3168 LOCATE 15,1:PRINT " DIAGNOSTIC "; 

3178 LOCATE 7,23:PRINT "O=oui N=non P=peut-etre F=fin"; 
3188 LOCATE 52,1:PRINT " MALADIES/GYMPTOMES *; 

3190 LOCATE 1,y:PRINT STRING$ (88,287); 

3208 LOCATE 1,25:PRINT STRING$ (88,143); 

3218 LOCATE 5,29:PRINT " COMMANDES : "; 

3228 LOCATE 25,25:PRINT " Le liste aaladies/syaptones ‘; 
3230 LOCATE 61,25:PRINT " D = diagnostic "; 

3248 WINDOW 3,38,9,21 

3258 WINDOW#1,3,38,3,5 

3268 WINDOW#2,43,78,3,22 

3270 NOVE 12,380 

3288 DRAN 316,388: DRAW 316,389:DRAN 12,309:DRAW 12,388 
3298 MOVE 332,388 

3308 DRAN 628,380: DRAN 628,37:DRAN 332,37:DRAN 332,388 
3318 MOVE 12,284 

3328 DRAN 316,284: DRAN 316,53:DRAN 12,53:DRAN 12,284 
3338 RETURN 





TROISIÈME PARTIE : 
ACTION 


CHAPITRE 5 
LES ROBOTS 


MISE AU POINT 


Nous ne prétendons pas ici traiter un sujet comme la robotique de manière 
exhaustive quand l'Amstrad, sur lequel nous présenterons quelques applications 
propres à ce domaine, ne dispose d'aucun organe mécanique. Tout du moins 
nous ne comptons pas aborder tous les aspects de ce vaste sujet, en particulier 
certains aspects dont nous avons déjà parlé (vision, décision) ou d'autres qui 
nécessiteraient pour être mis en œuvre des moyens dont vous ne disposez pas 
pour la plupart. La question alors posée est la suivante : “Que peut-on faire en 
robotique avec un micro-ordinateur comme l’Amstrad ?”. La réponse vous éton- 
nera sans doute : “presque tout” ! os que parmi les trois phrases de toute 
initiative intelligente (PERCEPTION, RÉFLEXION, ACTION), deux sont en contact 
étroit avec le monde extérieur : la perception et l'action, illustrées par la robotique. 


Or, tout comme la reconnaissance de formes ou de la parole, qui interviennent 
dans les phases de perception, l'action (la robotique en est une application im- 
médiate) implique une activité intellectuelle importante. Toute cette activité intel- 
lectuelle qui préfigure le mouvement et qui fait partie intégrante de l'action (sauf 
peut-être dans les RAMBO de Silverster Stallone) pourra être simulée sur un micro 
puisque qu'elle ne nécessite aucun organe mécanique. Comme il est toujours un 
peu frustrant de préparer une action sans la mettre effectivement en œuvre, nous 
simulerons celle-ci graphiquement sur l'écran. 


L'ÉTENDUE DU PROBLÈME 


Un exemple illustre bien notre propos : le problème de la préhension d'objets. 
Pour qu'un robot parvienne à se saisir d’un objet, il doit faire précéder son mou- 
vement par plusieurs étapes purement intellectuelles. ll doit d'abord “comprendre” 
l'ordre que l’on veut lui faire exécuter. Cet ordre lui sera par exemple transmis en 
langage naturel. |! doit ensuite identifier l'objet, sa position, etc., puis calculer une 
trajectoire optimale pour l’atteindre en ajustant accélération et décélération, en 
évitant les obstacles, etc. Par exemple le robot VESA utilise plusieurs tactiques 
différentes pour déterminer sa trajectoire. La plus simple consiste à se diriger droit 
devant lui vers l'objectif. S'il rencontre un obstacle, il le contourne puis reprend sa 
marche initiale par une série de rotations. 
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Une stratégie plus.élaborée suppose une connaissance a priori de l'environne- 
ment. Les obstacles sont, soit modélisés par des formes géométriques soit gros- 
sièrement décrits par un opérateur dans un langage particulier. VESA calcule alors 
HER d'entamer le mouvement, une trajectoire minimale tenant compte de ces 
obstacles. 


A 


\ 
Aa 


Trajectoire optimale de A vers B 


Toujours avant même d’amorcer le moindre mouvement, un robot estime la 
pression qu'il exercera sur l’objet à saisir. Pour cela, il enregistre l'aspect de l'objet 
et recherche dans ses bases de données toutes les informations relatives à ce 
type d'objet : résistance, consistance, etc. La même démarche intellectuelle est 
effectuée pour ce qui concerne le retour du robot après la préhension. A ceci près 
que la fragilité éventuelle de l’objet saisi complique encore un peu le travail intel- 
lectuel de notre robot ! 
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Et même le mouvement entamé, le travail intellectuel continue. En effet des 
obstacles imprévus peuvent survenir qu'il lui faudra éviter (en le contournant ? en 
les escaladant ? en les détruisant ?). Ce n'est qu’au moment de la préhension 
effective de l'objet que le robot, grâce à des capteurs, se rend compte de sa 
résistance (élasticité, consistance), de sa température, de son poids. En fonction 
de ces nouvelles informations, il adapte la pression de ses “doigts”, éventuelle- 
ment reconsidère sa trajectoire de retour, etc. 


Comme vous le voyez, le travail d’un robot n'est pas simple. Et une grande part 
de ce travail peut être effectuée sur un micro-ordinateur. Ceux-ci se prêtent très 
bien à ce genre d'applications et il n’est pas rare de piloter un engin mécanique à 
partir d’un micro tout à fait ordinaire. 


L'ordinateur se charge alors de la part de raisonnement présente dans toute 
action, et la machine se contente de figurer les bras ou les jambes dans cette 
association de troisième type. Parmi les différents programmes qui illustrent ce 
chapitre sur la dernière phase du processus d'intelligence, l’action, citons ROBOT, 
capable de manipuler des objets en obéissant à des ordres donnés en langage 
naturel. En le voyant réagir à vos commandes et tenir compte de son environne- 
ment (toute l’action est simulée sur l'écran) vous prendrez sans doute conscience 
de la complexité de la préparation de l'action. tout cela en vous amusant bien 
entendu ! De même SOPHIE, extraordinaire de réalisme, simule avec ses lèvres 
toutes les phrases que vous rentrerez au clavier. Certes, la part d'intelligence dans 
ce type d'action se limite à peu de choses mais elle existe néanmoins : SOPHIE 
possède la capacité d'identifier les phonèmes des mots que vous lui demanderez 
de prononcer, puis d'associer à chacun de ces phonèmes un certain mouvement 
de lèvres. Pas si évident qu'il n’y paraît ! 


LES APPLICATIONS DES ROBOTS 


Peut-être encore davantage que les autres domaines de l'intelligence artificielle, 
celui-ci constitue de la graine de bouleversement social. Les robots constituent un 
enjeu économique sans précédent et les gouvernements l'ont bien compris incitant 
les centres de recherche à rechercher à tout va, les industries à s'équiper sans 
attendre. Les japonais ont fait des robots un axe prioritaire de leurs investigations 
vers la fameuse cinquième génération d'ordinateurs. Et quand les spécialistes 
parlent de robots, ils n'évoquent pas tant le côté “machinerie” qui évolue peu par 
rapport aux automates déjà existants et autres machines-outils, mais bien plutôt, 
nous n'insisterons jamais assez, l'aspect “intelligence” qu'il convient désormais 
de leur associer. 


Grâce justement à cette intelligence, qui justifie d’ailleurs la présence de ce 
chapitre dans un ouvrage traitant de l'intelligence artificielle, les robots sont et 
seront de plus en plus, capables d'accomplir des tâches évoluées. Car l'ambition 
des industriels ne donne pas dans la demi-mesure : il s’agit tout simplement de 
remplacer des hommes, accomplissant des travaux certes répétitifs mais récla- 
mant néanmoins une bonne capacité d'adaptabilité voire d'initiative, par des ma- 
chines faites de métal et de silicium. C'est dire l'ampleur du mouvement qui 
s'amorce | 


Parmi les nombreuses applications recencées à ce jour, quelques-unes mar- 
quent plus que d’autres par le côté “évolué” de la tâche qui incombe au robot. 


— robot munis d'une caméra pour détecter les défauts d’une marchandise ; 
— robot pour assembler des circuits électroniques sur des cartes ; 
— robot pour trier des pièces automobiles ; 
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— robot pour peindre des voitures ; 

— robot pour assembler des éléments mécaniques complexes ; 
— robot capable de lire une partition et la jouer au piano ; 

robot soudeur, pour la manutention. 


Le Japon dans le domaine des robots possède une avance confortable sur les 
autres pays. Parmi les plus grands constructeurs, on peut citer KAWASAKI, HI- 
TACHI, FUJITSU, MITSUBISHI, NISSAN. Remarquons en passant qu'il s'agit pour 
la plupart de constructeurs d'automobiles clairvoyants qui ont vu d'où venait le 
vent. Quant à la recherche, une action d'envergure entreprise dans ce pays mérite 
qu'on s'y arrête. 


Le projet MUM (Methodology for Unmanned Machine-shop) a conduit à la réa- 
lisation d’un atelier flexible de production, c'est-à-dire entièrement automatisé ! 


LES FONCTIONS D’UN ROBOT 


Si l’on récapitule en les formalisant les différentes fonctions remplies par un 
robot, on en relève cinq principales : 


— la fonction PERCEPTION : le robot perçoit son environnement au moyen de 
capteurs et de senseurs ; 


— la fonction COMMUNICATION : le robot communique avec un opérateur qui 
lui indique la marche à suivre, les ordres à exécuter, etc. ; 


— la fonction DÉCISION : le robot utilise les résultats des deux précédentes 
fonctions pour choisir une trajectoire, un comportement, etc. ; 


— la fonction ACTION : le robot met en œuvre sa décision pour réaliser le but 
fixé par un opérateur ; 


— la fonction APPRENTISSAGE : le robot itère les quatre précédentes étapes 
et enregistre en mémoire tous les événements qui en découlent. Ils fourniront plus 
tard de la matière à la fonction décision. 


LANGAGE NATUREL ET ROBOTS 


Comme vous le constaterez dans vos investigations futures sur les trois logiciels 
qui illustrent ce chapitre, ROBOT (un de ces trois), possède une particularité assez 
rare et des plus intéressantes. || obéit à des ordres indiqués en langage naturel. 
Communiquer avec les robots en langage naturel apparaît indiscutablement comme 
l'approche la plus logique et la plus inéluctable. En effet, de plus en plus, les robots 
sont amenés à se livrer à de véritables dialogues avec les opérateurs humains, 
tant la communication devient une de leurs fonctions prépondérantes. L'opérateur 
transmet non seulement des ordres, mais aussi des informations sur l’environne- 
ment, des requêtes (qui appellent des réponses), etc. 


Dans un tel contexte, deux voies sont possibles : soit les opérateurs deviennent 
des spécialistes très pointus, soit ce sont les robots qui s'adaptent et comprennent 
le langage naturel, celui que parle n'importe qui (avec quelques restrictions tout 
de même). Commeil est toujours plus sûr d'adapter une machine (si c'est possible) 
qu'un homme, la solution consiste à appliquer aux robots les techniques les plus 
avancées de la reconnaissance de la parole, (cf. chapitre sur la reconnaissance 
de la parole). 
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QUELQUES EXEMPLES CÉLÈBRES 


Sans faire l'inventaire de tous les robots passés, présents ou futurs, rendons 
néanmoins hommage à quelques “phénomènes” robotiques qui forcent l'admira- 
tion et incitent à la réflexion philosophique (jusqu'où iront-ils ??). 


ELIZA simule l’activité d’un psychiatre, l'opérateur humain jouant le rôle du pa- 
tient. 


SHRDLU évolue dans un univers à trois dimensions contenant des boîtes, cy- 
lindres, etc. qu'il peut manipuler à l’aide d'un bras. L'opérateur humain commu- 
nique avec SHRDLU en langage naturel. 


Enfin un robot (CORDIER, 79) exécute des recettes de cuisines en mélangeant 
les ingrédients, calculant les temps de cuisson, etc. 


PRÉSENTATION DU PROGRAMME ROBOT (BRAS ROBOT 
PILOTABLE PAR PHRASES EN LANGAGE NATUREL) 


COMMENT L'UTILISER ? 


Vous pilotez, par des ordres tapés en langage naturel, un robot composé d'un 
bras se déplaçant sur une glissière et qui se termine par une pince. |l évolue dans 
une sorte de micro-monde et peut éventuellement aller chercher des cubes et des 
ballons dans une boîte. 








ques le en 
(= à 6) 


range le 
inventaire 
ou est 

et 


4 











KA 
_ 


\ 
[TELLE CECTECEECECE ELEC LEZ LELEECCEE CIEL DS 
Je suis à Vos ordres 

? pr rends un cube et pose le en 4 

EXÉCUTION DE L'ORDRE : prends un cube 
EXECUTION DE L'ORDRE : pose le en 4 





CL CET LELLE ELU LEE 
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Son vocabulaire est affiché dans une fenêtre, vous pouvez assembler ses mots 
comme bon vous semble, de manière à former des ordres ou des séries d'ordres, 
séparés par “et” ou une virgule. Chaque ordre est exécuté le cas échéant, sur 
l'écran, grâce à une superbe animation graphique. 


Vocabulaire 


(X=A à 


pue le en 
(Ÿ={ à 6) 


\\ EE EE me 
\\\ LE 


LL DOI A LEA 
? ou est le cube à 

EXECUTION DE L'ORDRE : ou est le cube à 

Le cube À est en colonne 4 
a gauche du ballon À, sous le cube F 





COMMENT ÇA MARCHE ? 


Le fonctionnement de ce programme est régi par trois grands modules, parfai- 
tement délimités dans le listing. 


Le premier d’entre eux définit le graphisme statique. C'est-à-dire la préparation 
de l'écran (fenêtres, cadres, liste du vocabulaire), la définition des caractères gra- 
phiques, et enfin la création des chaînes de caractères graphiques qui forment les 
différents états du bras, ainsi que l'aspect des objets. 


Le second module contient de nombreux sous-programmes chargés de l’ani- 
mation et de la modification de l'univers représenté par le tableau UNI- 
VERS(6,3). 


déplacement de la pince d’un point à un autre ; 

saisie d’un cube ou d’un ballon dans la boîte ; 

rangement dans la boîte de l’objet que tient la pince ; 
dépose de l'objet que tient la pince à une certaine position ; 
— dégagement d’un objet pour le rendre accessible à la pince. 
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(XA à 
















pue le en 
(Y=1 à 6) 


range le 
inventaire 
ou est 

et 


4 









ANNE 


CET LITE El M TITI 
EXECUTION DE L'ORDRE : prends un ballon 
9 pus le en | 
EXECUTION DE L'ORDRE : pose le enl 
Inpossible, il ne tiendrait pas en equilibre 





Chacun de ces sous-programmes est précédé d’un en-tête spécifiant sa fonc- 
tion et ses conditions d'entrée. |l est à noter qu'ils s'appellent les uns les autres, 
ainsi, le sous-programme qui dégage un objet utilise les programmes de saisie et 
de rangement, qui eux-mêmes appellent le programme de déplacement de la 
pince. 


Le troisième module gère le dialogue, c'est-à-dire l'analyse syntaxique de 
phrases, la création des réponses, et l'exécution des ordres. Ce module procède 
par trois étapes : 


— découpage de la phrase en ordres ; 

— découpage de chaque ordre en mots ; 

— comparaison de la série de mots avec l'arbre des ordres autorisés, cette 
opération néglige les mots inconnus ; 

— exécution de l'ordre. 
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ps le en 
(Y=1 à 6) 


range le 
inventaire 
ou est 
et 





KA 
\\ 


CH ÉTÉ LI LEE EL ECELCEEL EC 
ECUTION D sx ORDRE. pose le en 4 

? jee e te demande de faire l' inventaire | | 

IX CUTION DE L'ORDRE : je te demande de faire l’ inventaire 
Mon univers contient il objets dont 3 ballon(s) et 8 cube(s) 








L'introduction de mots non connus du logiciel ne perturbe pas son 


fonctionnement. 
PRINCIPALES VARIABLES 
univers (i,) état case de coordonnées i et j de l'univers 
xobjet(i) abscisse de l’objet i dans l'univers 
yobjet(i) ordonnée de l’objet i dans l'univers 
forme.objet(i) forme de l'objet i (carré ou rond) 
lettre.objet(i) lettre de l'objet i (A à Z) 


19 REMRREEREREEEEREREEEE 

28 REM ROBOT T, L.-6, 

20 REMRRHHERERENREEEHEEE 

49 REMHRERRRREREREREREREREREREEREERRE 

dé REX ! ere partie : initialisation 

68 REMREHREREEEEHEREREREREREEEENEREE 

78 MODE 2 

88 vide=f:ballon=t:cube=2:oui=f:non=8 

50 DIX bras${18} dir${3) ,formef(2} ,aot$(255) 
188 DIX univers(é,33 «objet (26) ,yobiet (26) 
118 DIM forae.obiet (26) ,lettre.objet#(28) ,existe(26) 
128 dir$(@)="sur le"sdir#$(i)="a gauche du" 
38 dir$(2}="sous le":dir$(3)="a droite du" 
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148 forae$(i}="ballon":forme$(2)="cube" 

158 REM--- caracteres graphiques --- 

168 SYMBOL AFTER 239 

178 SYMBOL 235,170,85,170,85,170,85,170,0 
188 SYMBOL 27h) 7 1341,8,255,255, 255,255 

198 SYMBOL 237,224,192,128,0,295,299,299,299 
208 SYMBOL 28 00, ,0,0 :192,240,252 


218 SYMBOL 239,252,240,192,0,0,0,0,0 

228 SYMBOL 240,255,255,255,0,0,0,255, 255 

238 SYMBOL 241,255,295,255,0,255,255,255 

240 SYMBOL 242,295,235,127,127,63,63,31,31 

258 SYMBOL 243,255,295,294,254,292,292,249,248 
248 SYMBOL 244,0,0,0,0,0,3,15,63 

278 SYMBOL 245,0,0,7,83,295,255, 295,255 

280 SVNBOL 244,0,83,255,295,255,255, 255,255 
290 SYMBOL 247,0,292,255, 255,255 ,255 255,255 
108 SYMBOL 248,0,0,224,252,255,295,255,255 

310 SVMBOL 249,127,127,255,255,255,255,127,127 
320 SYMBOL 250,294,254,255,255,255,255, 254,254 
130 SYMBOL 251,63,15,3,0,0,0,0,0 

348 SYMBOL 292,255,255,255,255,63,7,0,0 

350 SYMBOL. 253,295, 255,255,295,255,255,63,0 
368 SYMBOL 254,295,255,255, 255,255, 255, 252,0 
378 SYMBOL 255,255, 255,255,255,252,224,0,0 


380 REM--- forme du ballon --- 
398 DATA 244,245,246,143,247,240,238 

408 DATA 249,143,143,143,143,258 

418 DATA 32,251,292,293,143,294,298,239,32 

420 FOR i=1 TO 7:READ a:bi$=bi$+CHRS (a): NEXT 
430 FOR i=i T0 3:READ a:b21#$=b21$+CHR$ (a): NEXT 
440 FOR i=i TO 3:READ a:b22$=b22#$+CHR$ (a): NEXT 
450 FOR i=i TO 9:READ a:b3#$=b3$+CHR$ (a): NEXT 
468 REM--- forme du cube --- 

470 FOR i=i T0 7:cit=ci$+CHR$ (207): NEXT à 

490 FOR i=1 T0 3:c2$=c2#+CHR$ (207): NEXT i 

490 FOR ii TO 7:c3$=cS$+CHR$ (235): NEXT i:c3$=" "+c3ft" 

508 REM--- forme du coude --- 

518 DATA 32,214,143,143,143,143,143,215,32,10,8,8,0,6,8,8,8,8,8 
520 DATA 240,207,207,207,207,207,207,207,240,10,8,8,8,8,8,8,8,8,8 
30 DATA 241,207,207,207, 27, 287,287,207,241,10,6,8,0,8,8,8,8,8,8 
40 DATA 52,213,145,143,143,143,143,217,32,10,8,8,8,8,8,8 

50 FOR izi T0 73:READ a:coudef=coudef$+CHR#(a}:NEXT i 

68 REM--- forme d'un element de bras --- 

570 DATA 207,207,207,10,8,8,8 

cd0 FOR i=1 TO 7:READ a:e1$=e1$+CHR$ (a): NEXT 1 

598 DATA 242,143,245,18,8,8,8 

690 FOR i=1 TO 7:READ a:e2$=e2$+CHR$ (a): MEXT : 

618 DATA 217,287,219,18,8,8,8 

620 FOR i=f TO 7:READ ate3$=e3$+CHR$ (a): NEXT i 


CPS 


c 
J 
€ 
J 
ce 
J 
€ 
d 
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638 REM--- forme de la pince --- 

648 DATA 8,8,8,32,32,32,217,207,219,32,32,32,10,68,8,8,8,8,8,8,8,8,8 
658 DATA 32,148,148,140,236,143,237,140,140,140,32,10,8,8,8,8,8,8,8,8,8,8,8 
668 DATA 32,143,32,32,32,32,32,32,32,143,32,10,8,8,8,8,8,8,8,8,8,8,8 
678 DATA 32,143,143,32,10,8,8,8,8,8,8,8,8,8,8,8,32,213 

688 DATA 212,32,10,8,8,8,8,8,8,8,8,8,8,8,32 

698 DATA 18,8,8,8,8,8,8,8,8 

708 FOR i=1 TO 71:READ a:pi$=pi$+CHR$ (a): NEXT i 

718 FOR i=1 TO 16:READ a:p2$=p2$+CHR$(a):NEXT ji 

728 FOR i=1 TO 15:READ a:p3$=p3$+CHR$ (a) :NEXT i 

738 FOR i=1 TO J:READ a:p4$=p4$+CHR$ (a): NEXT i 

748 esp7$=STRING$ (7,32) :e5p9$=STRING$ (9,32) 

798 ol$=esp7$:02$=esp7$:03$=esp9$:04$="":GOSUB 2388 

768 REN--- forae des bras des differentes longueurs --- 

778 bras$(1}=e2$ 

788 bras$(2)=ei$te2$ 

790 bras$(3)=ei$te2$+es$ 

800 bras$(4)=ei$tei$+e2$te3$ 

818 bras$(5)=elftel$+e2$te3$tes$ 

828 bras$(b)=eiftei$+e1$+te2$+e3$te3$ 

838 bras$(7)=elftel$tel$+e2$te3$te3$te3$ 

840 bras$(B)=el$teiftei$tel$+e2$te3$te3$tes$ 

858 bras$(9)=elftelftel$te1$+te2$te3$te3$tes$tes$ 

868 bras$(10)=el$telfte1$+e1$tel$te2$+e3$+te3$+e3$te3$ 

878 REM--- initialisation de l'ecran --- 

888 WINDOW 1,80,22,25 

898 NINDOW#1,69,79,3,28 

900 LOCATE#2,1,2:PRINT#2,STRING$ (67,240); 

910 LOCATE#2,1,3:PRINT#2,STRING$ (87,241); 

928 LOCATE#2,1,21:PRINT#2,STRING$ (67,233); 

938 LOCATE#2,69,21:PRINT#2,STRING$ (11,154); 

948 LOCATE#2,69,2:PRINT#2,STRING$ (11,154); 

958 FOR x=1 TO b:LOCATE#2,17+(x-1)#9,21:PRINT#2,RIGHTS(STRS(x) ,1)52NEXT x 
968 FOR y=3 TO 20 

978  LOCATE#2,68,y:PRINT#2,CHR$ (149); 

988  LOCATE#2,88,y:PRINT#2,CHR$ (149); 

998 NEXT y 

1988 LOCATE#2,68,2: PRINT#2,CHR$ (190) ; :LOCATE#2,80,2:PRINT#2,CHR$ (156) ; 
1918 LOCATE#2,68,21:PRINT#2,CHR$ (147) ; :LOCATE#2,80,21:PRINT#2,CHR$ (153); 
1828 FOR y=15 T0 28 

1834 LOCATE#2,1,y:PRINT#2,STRING$ (11,281); 

1840 NEXT y 

1858 LOCATE#2,4,17:PRINT#2, "BOITE"; 

1868 PRINT#1, "Vocabulaire"; STRING$(11,"-"); 

1078 PRINT#, "prends" 

1888 PRINT#1, "un cube":PRINT# “un ballon" 

1898 PRINT#1,"le cube {":PRINT#1,"le ballon X"; 

1188 PRINT#,"(X=A a S)" 
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1110 PRINT#L:PRINT#I , "pose le en"; 

1128 PRINT#I,"Y (Y=1 à 6)" 

1138 PRINT#I "range le“ 

1148 PRINT#1 ,"inventaire":PRINT#i "ou est" 

1158 PRINT#I "et" 

1168 PRINT#1,"," 

1178 xpince=2:60SUB 2410 

1180 GOTO 2724 

1100 REMERREERENEEEREREREEREEREEEREREEEEEREREEREEREREEEEEEEEEREREERREREREEE 
1280 REM 2 ome partie : animation et aodification des variables de l'univers 
A0 REMAEEEEEEEEREEEEHE FE EEEEEEEERERREREEREREE 


1250 IF x=0 THEN xdestination=2 ELSE xdestination=4+9#x 
1268 ydestination=3#y+] 

1278 FOR ypincez=ypince T0 @ STEP -{ 

1288 GOSUB 2418 

1298 NEXT ypince 

1308 IF xdestination?xpince THEN sens=1 ELSE sens=-1 
1318 FOR xpince=xpince TO xdestination STEP sens 
1320  ypince=0:60SUB 2410 

1330 NEXT xpince 

1348 xpince=xdestination 

1350 FOR ypince=@ TO ydestination 

1360  GOSUB 2418 

1370 NEXT ypince 

1388 ypince=ydestination 

1398 RETURN 

1400 REM============2=2==2=22=22=2222222222 

1418 REM saisie d'un objet dans La boite 

1420 REM entree : forne 


1450 IF forme.objet(j)(>forae OR existe(j}(>non THEN 1478 
1460 cnpince#=lettre.objet$(j):6070 1550 

1470 j=j+1 

1488 IF jonobjets THEN 1500 

1490 GOTO 1450 

1508 IF forme=cube THEN i=ncubes:ncubes=ncubes+i 

1510 IF forae=ballon THEN i=nballons:nballons=nballons+i 
1528 j=nobjets:nobjets=nobjets+i 

1538 forne.objet(j)=forse 

1548 lettre.objet#(j)=CHR$(65+i):cnpince$=CHR$ (65+i) 
1550 cfpince=forse:cipince=) 

1568 existe(j)=oui 

1570 GOSUB 2508 

1588 REMN--- anisation --- 
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1590 »x=0:y=1:G0SUB 1228 

1608 pince$=LEFT#(pince$,182):ypince=5:G0SUB 2418 

1618 pince$=LEFT${pincef,79):ypince=6:G60SUB 2418 

1628 pince$=LEFT#(pince$,68):ypince=7:60SUB 2418 

1830 pincef=pi$+fi$tCHR$ (143): ypince=b:60SUB 2410 

1448 pince$=plf$+f1$+p2$+#2$+CHR$ (212) :ypince=5:G60SUB 2418 
1450 pincef=pi$+f1$tp2$+#2$+p3$+#3$: ypince=4:G0SUB 2418 
1668 pince$=pince$+p4$ftesp7$:ypince=3:60SUB 241 

1678 RETURN 


1718 cfpince=vide 

1720 existe(cipince)=non 

1730 REM--- animation --- 

1740 x=@:y=0:G0SUB 1228 

1730 ypince=2:G60SUB 2418 

1768 ypince=3:60SUB 2418 

1770 pince$=LEFT#(pincef,126):ypince=4:60SUB 24iQ 
1788 pince$=LEFT#(pincef$,102):ypince=5:60SUB 2410 
1798 pincef=LEFT$(pince$,79):ygince=b:60SUB 2410 
1800 pincef=LEFT$#(pince$,4@):ypince=7:G60SUB 2410 
1818 pince$=pi$tesp/$+CHR$ (143): ypince=6:G0SUB 2418 
1828 pince$=pi$tesp7$+p2$tesp7$+CHR$ (212): ypince=S:G0SUB 2410 
1838 ol$=esp7$:02$=esp7$:03$=esp9$:G60SUB 2380 

1840 ypince=4:60SUB 2410 

1850 RETURN 


1998 univers{xd,yd)=cfpince 

{908 xobjet (cipince)=xd 

1910 yobjet(cipince)=yd 

1928 cfpince=vide 

1938 REM--- animation --- 

1948 x=xd:y=yd-1:60SUB 1228 

1958 pince$=LEFT$(pince$,126) 

- 1968 FOR ypince=3#yd-1 TO Jkyd+i 

1978  GOSUB 2418 

1988 NEXT ypince 

1998 ol$=esp/$:02$=f1$:03$=" "+F2$+" ":04$=RIGHTS(F3$,8) :GOSUB 2380 
2088 ypince=ypince-2:60SUB 2418 

2818 o1$=esp7$:02$=esp7$:03$="":04$="":GOSUB 2380 
2020 ypince=ypince-1:G0SUB 2418 

2030 LOCATE#2,xpince,ypince+i8:PRINT#2," "; 

2448 LOCATE#2,xpince+8,ypince+i@:PRINT#2," "; 
2058 o3$=esp9$:60SUB 2388 

2468 ypince=ypince-{:G0SUB 2418 

2478 RETURN 
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2080 REM========2==22222=2=2=2222222= 
2490 REM saisie d'un objet en xd,yd 
2108 REM=======2=2=2=2=2222=2222222 


2110 univers{xd,yd)=vide 

2128 GOSUB 262@:cipince=i:cfpince=f 

2130 forne=f:cnpincef$=1$:60SUB 2498 

2140 REM--- animation --- 

2150 x=xd:y=yd-1:GOSUB 1228 

2168 pince$=LEFT$(pince$,102):ypince=ypince+i:60SUB 2410 

2170 ol$=esp7$:02$=f1$:03$=" "+f2$+" ":04$=RIGHTS(3$,8):60SUB 2388 

2188 ypince=ypince+{:60SUB 2418 

2190 al$=fi$:02$=#2$:03$=f3$:04$="":GOSUB 2380 
- 2288 ypince=ypince+1:G60SUB 2418 

2218 pincef=pince$tesp9$ 

2228 ypince=ypince-1:60SUB 2418 

2238 RETURN 

2248 REM=========2222222=22222222222 

2250 REM degagement de l'objet xe,ye 

2269 REM======2=22222222222222222222 

2270 FOR y=1 TO ye-1 

2288  xd=xe:yd=y 

2290 IF univers(xd,yd)=vide THEN 2328 

2308  GOSUB 2110:REM saisie 

2310 GOSUB 1718:REM rangesent 

2328 NEXT y 

2330 RETURN 


2378 REM=== contenu de la pince === 

2388 pince$=pi$tol$tp2$to2$+p3$t03$+p4$t04$ 

2390 RETURN 

2408 REM=== affichage du bras === 

2418 LOCATE#2,xpince,l 

2428 LOCATE#2,xpince, 

2438 sesbre$(@)=coudef 

2448 aesbre$(1)=bras$(ypince)tpince$ 

2458 FOR ii=8 T0 1 

2468 FOR i=1 TO LEN(aeabref(ii)) STEP 13:PRINT#2,NID$(aeabref(ii),i,13)3:NEXT 
2470 NEXT ii 

2488 RETURN 

2498 REN=== forse de l'objet a aanipuler === 

2588 IF forse=cube THEN f1$=c1$:f2$=c2$tcnpince$+c2$:f3$=c3$:RETURN 

2518 IF forse=ballon THEN f1$=b1$:#2$=b21$+cnpince$+b22$:f3$=b3$:RETURN 

2528 RETURN 

2538 REN=== coordonnees de l'objet de forse f et de lettre 1$ === 

2548 i=8 

2558 IF forse.objet(i)=f AND lettre.objet$(i)=1$ AND existe(i)=oui THEN 2598 
2568 IF i=nobjets THEN trouve=non: RETURN 
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2578 i=iti 

2588 6070 2550 

2590 xp=xobjet {i):yp=yobjet (i):trouve=oui 

2688 RETURN 

2618 REM=== forse et lettre de l'objet de coordonnees xd,yd === 
2628 i=8 

2630 IF xobjetli)=xd AND yobjet(i)=yd AND existeli)=oui THEN 2670 
2640 IF i=nobjets THEN trouve=non: RETURN 

2858 i=i+l 

2668 6010 2634 

2678 f=forme.objet(i):1$=lettre.objet$(i):trouve=oui 

2688 RETURN 

2090 REMEHREREREEEEREEEEEEREEEEREEEEEEEEEREEEEEEEEEEEEEREEEEEREEERERE 
2700 REM 3 eae partie : gestion du dialogue et execution des ordres 
2710 REMAEREREREREREREEEREEREEEEEEREREREREEEEEEREREEEEREREREREEHREE 
2720 PRINT “de suis a vos ordres" 

2738 ph$="":LINE INPUT ph$ 

2748 ph$=LOWER$ (ph$) 

2798 REM--- decoupage de la phrase en ordres --- 

2788 ordre$="":FOR k=1 TO LEN(phf} 

2770 car$=MID$(ph#,k,1) 

2788 IF MID#(ph#,k,2)="et" THEN k=Ek+2:60SUB 2850:G0T0 2810 

2790 IF car$="," THEN GOSUB 2850:60T0 2819 

2808  ordref=ordre$+MID$(ph$,k,1) 

2818 NEXT k 

2820 GOSUB 2858 

2830 GOTO 2730 

2848 REM--- decoupage de l'ordre en mots --- 

2850 FOR j=0 TO naots:aot$(j)="":NEXT j 

2868 naots=@ 

2870 FOR i=1 TO LEN(ph$) 

2888 car$=MID$(ordref,i,1) 

2898 IF car$=" " THEN naots=naotst1:60T0 2918 

2908  aot#f(nnots)=not$ (naots)+MNID$(ordref,i,1) 

2918 NEXT i 

2928 PRINT "EXECUTION DE L'ORDRE : ";ordref 


2948 GOSUB SPQB:REM analyse et execution d'un ordre 
2950 ordre$="" 

2968 RETURN 

297@ REM============2====2222222=22222227 

2988 REM analyse et execution d'un ordre 

2999 REM=========222=2222=2222222222222222 

3400 j=0 

3018 IF aot$(j)="prends" AND aot$(j+i)="le" THEN 3108 
3420 IF aot$(j)="prends" AND aotf(j+i)="un" THEN 3198 
3038 IF aot$(j)="pose" AND aotf(j+{i)="le" AND aot$(j+2)="en" THEN 3288 
3848 IF aot$(j)="range" AND sot$(j+1)="le" THEN 3428 
3050 IF aot$(j)="inventaire" THEN 3468 
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2068 IF motflj}="ou" AND aotftj+i)}="est" THEN 3429 
3870 IF j=naots THEN 3990 

1086 j=j+1:60T0 3010 

3890 REM--- prends le --- 

3100 erreur=non:60SUR 3830:IF erreur=oui THEN RETURN 
3114 erreur=oui:REM en attendant la demonstration de l'inverse en 12180 
3120 IF trouve=non THEN 4910 

31938 IF i=cipince AND cfpince{ivide THEN 4840 
3140 IF cfpincetivide THEN GOSUB 1718 

S150 xe=xp:ye=yp:60SUB 2278 

3160 »d=xp:yd=yp:G60SUB 2118 

3170 erreur=non:RETURN 

3180 REM--- prends un --- 

3198 j=j+#1 

1280 IF mot$(j)="cube" THEN forse=cube:G0T0 3240 
3210 IF aot$(j}="ballon" THEN forae=ballon:607T0 3248 
3228 IF j>nmots THEN 3990 

3230 GOTO 3194 

3240 IF cfpince{}vide THEN GOSUB 1710 

3250 GOSUB 1448 

3260 RETURN 

3278 REM--- pose le sur --- 

3288 j=j+3 

3290 xd=VAL(nat$(j)} 

3300 IF xd>6 OR xdt1 THEN 4050 

3318 IF cfpince=vide THEN 4060 

20 sonnet=0 

30 FOR yd=1 TO 3 

48 IF univers{xd,yd)=vide THEN sonaet=yd 
3330 NEXT yd 

3360 IF sonmet=@ THEN 4070 

3370 IF sonmet=3 THEN 3390 

3388 IF univers(xd,sonnet+1)=ballon THEN 4088 
3390 yd=soaset:60SUR 1894 

3400 RETURN 

3410 REM--- range le --- 

3420 IF aot$(j+2)>"" OR cfpince=vide THEN 4860 
3430 GOSUB 1718 

3448 RETURN 

3450 REM--- inventaire --- 

3468 nb=@:nc=0 

3470 IF cfpince=ballon THEN nb=1 

3480 IF cfpince=cube THEN nc=1 

3490 FOR xd=1 TO 6 

3908 FOR yd=1 TO 3 

3510 IF univers(xd,yd)=ballon THEN nb=nb+1 
3328 IF univers(xd,yd)=cube THEN nc=nc+#1 
3930  NEXT yd 

3948 NEXT xd 
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3958 IF nb+tnc=@ THEN PRINT "Mon univers est vide":RETURN 

3568 IF nc=@ THEN PRINT “Mon univers contient"snb;"ballons":RETURN 
3570 IF nb=@ THEN PRINT "Mon univers contient "inc; "cubes":RETURN 
3586 PRINT “on univers contient"inbtnci "objets ‘; 

3598 PRINT “dont"inb;"balionts} et"incs;"cubeis)" 

3408 RETURN 

Sôiÿ REM--- ou est --- 

3628 erreur=non:G0SUB 3838:!F erreur=oui THEN RETURN 

3630 IF trouve=non OR existeli}=non THEN PRINT "Il est dans la baite":RETURN 
3640 IF cipince=i AND cfpince=f THEN PRINT'Je le tiens":RETURN 
3658 x=xobjet{ih:y=vyabiet(i) 

3668 lieu$="" 

3670 xd=x:yd=ytiidir=@:G0SUB 375 

3688 xd=x+{:yd=y:dir={:G60SUR 3758 

3698 xd=x:yd=y-tidir=2:60SU8 375 

3700 xd=x-i:yd=y:dir=3:60SUB 3750 

3710 PRINT "Le "sformeftfa):" "ila$;" est en colonne";x 

3728 IF lieuf="" THEN RETURN 

3730 lieu$=LEFT$(lieuf,LEN(Lieu$)-2) 

3740 PRINT lieuf 

3750 IF xdé1i OR xdi6é OR ydét OR vd}3 THEN RETURN 

3768 IF univers(xd,yd)=vide THEN RETURN 

3770 GOSUB 2628 

3780 lieu$=lieuftdir$(dir}+" "+tformef(fi+" "+1$+", 

3798 RETURN 

3808 REM============22=22222222252 

3810 REM analyse du nos d'un objet 

3929 REM========2==2==2===2======2=2= 

3830 j=j+] 

3848 IF mot$(j)="cube" THEN f=cube:G60T0 3888 

3850 IF mot$ij)="ballon" THEN f=ballon:60T0 3888 

3860 IF j>naots THEN GOSUB 39S@:erreur=oui : RETURN 

3870 GOTO 3834 

3880 j=j+l 

3898 IF not$(j)="" THEN GOSUR 3990:erreur=oui : RETURN 

3900 IF LEN(nat$(j)1}1 THEN 6OSUB 408@:erreur=oui: RETURN 

3918 aot$(j}=CHR$#(ASC (aot#(j)}1-32) 

3920 IF ASC(not$(j)1>90 OR ASC(not#(j))€65 THEN GOSUB 48B@:erreur =oui : RETURN 
3930 1$=aot$(j):GOSUB 2548 

3940 fa=f:lm$=1$ 

3950 RETURN 

396@ REM=============2==2=2=: 

3970 REM aessages d'erreur 

3984 REM=============22=2=2= 

3998 PRINT "Desole, je ne comprends pas cet ordre.":RETURN 

4808 PRINT "Je ne donne jamais de tels noss a aes objets. ":RETURN 
4918 PRINT “Cette objet est dans la boite dans laquelle” 

4028 PRINT "je parviens a peine a differencier les cubes des ballons," 
4930 PRINT "tant l'eclairage est sauvais.":RETURN 


ROBOTS |149 


4040 PRINT "Je le tiens.":RETURN 

4050 PRINT "Numero de coionne invalide.":RETURN 

4060 PRINT "lapossible, je ne le tiens pas.":RETURN 

4870 PRINT “lapossible, la colonne est pieine.":RETURN 

4088 PRINT "lapossible, il ne tiendrait pas en equilibre":RETURN 


PRÉSENTATION DU PROGRAMME SOURIS 
COMMENT L'UTILISER 7? 


Le principal acteur de ce programme est une souris, perdue dans un labyrinthe, 
et qui recherche la sortie de manière intelligente, c'est-à-dire sans passer deux 
fois au même endroit, sauf quand cela accélère le processus d'exploration. 


Votre rôle se décompose en trois phases : 


— choisir le lieu de la sortie sur le périmètre du labyrinthe en la déplaçant avec 
les flèches du curseur, puis en appuyant sur ENTER lorsque votre choix est effec- 
tué ; 


— dessiner un labyrinthe, toujours avec les flèches du curseur, mais cette fois 
en pressant simultanément la barre d'espace lorsque vous voulez “creuser” un 
chemin. Cette opération s'achève aussi par une pression sur ENTER ; 


— enfin, placer la souris dans le labyrinthe, encore avec les flèches du curseur, 
puis la libérer, en pressant ENTER. 
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RE 


CCE 


20000 


RE 


0000000 


CE 


COS 


0000000 


+,0,6,0,0,8,8,8 


000 


SEE 


AE 


AR AAA A A 


+,6,6,6,6,6,6,+ 


EE 


NX 


CE 


00000 


tétte+ee 


tét+++ee 


'600090%: 


COCO COCO 


ACCES 
NS, 


A AAA A A 


+,0,9,6,6,6,6, 


TX 


AAA AAA 


COCOOOOC0 


600006 


AAA A A A 


e,6,6,6,6,6,8,8 


00000 


nn, 


'é+0+64+ 


+,6,6,6,8,6,6,% 


tete 


té. 


+,6,6,8,0,6,8,% 


SE 


000.0 


00660 


SCO 


0000.00: 


té++++6+ 


+,+,6,6,6,8,0,8 


tete 


tetes 


COCO OO 


OOOOODOOOOO0 
ÉCOLE 


20000000 


+,+,0,6,0,6,6,6,+ 


etat tt 


etat ete 


RAA AAA A XX 


+, ,6,6,8,6,6,6,6,6, 6,8, 


AAA AAA A A 


+,+,0,6,8,6,6,6,8,0,6,% 


AAA AAA AA A A 


+,4,6,6,8,06,6,6,6 6,6, 


SEE 


+,6,0,8,6,8,0,6,8,0,8,8 


EE 


at et 


SEE 


vertes teees 


+,6,0,6,0,0,8,6,8,8,0,8 


( 
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OOODOGOCCOCOCOUC 
RES 


RO) 


ve++0+666 4 


,6,6,8,6,8,6,8,6,8,8 


RAA AAA AAA A XI 


+,6,6,8,6,6,8,6,8,8,8 


+,+,6,8,+ 
TES) 


EE ES) 


Ve 666605066 84 


+,6,0,8,6,0,0,6,8,8,0,0,0,8,8,8 
a a at el 
+ 


,0,6,6,6,8,8,6,8,6,6,8,0,8,8 


ES 


EEE 0 


ES 


000000006660 
0000006 
+,6,6,8,6,8,8,8,8 


| à 
ee a a etat ete 


+,+,+ 
at 


AAA A A AR A 


+,6,6,0,8,8,6,8,6,0,8,0,8,8,6,6,8,0,0,8,6,8,0,8,8,8,8,9 


LR 0 EE 6 D 6 D 6 D 6 8 EE D 4 4 4 à, 


+,6,0,8,0,8,8,8,8,6,8,8,6,8,8,6,8,8,6,8,6,6,8,8,8,8 


OOOOOOOOO0OOOC 
OO 


SSL LEE 


a te 


RAA AAA A 


+,6,6,0,0,0,6,6,0,0,0,% 


RAA A AAA A X 
COOOOGOOOCOOC 
a tata te 


ee ee a ete ete 


RAA AAA XX 


+,6,0,6,8,0,0,8,6,0,6,% 
+,+,+ 
+,6,6,0,8,6,6,6,0,0,6,% 


TESTÉ 


RAA AAA A A0 


+,4,0,6,8,0,6,6,8,0,6,8 


RAA AA AA X A 


.,6,0,6,0,6,6,6,6, 6,6, 


a a te 


a ee 


a a te 


AAA AAA AA A 


+,6,6,6,0,6,0,8,6,0,6,% 


SES ETESE 


CRAAAA AAA A 


+, +,+ 


ARR RAR RP RP) 
+,+,0,8 


+,6,6,6,8,8,6,8,9 


000000000000 0 0 


RAA A AA AAA AR AA XX 


+,0,0,6,0,6,0,6,0,6,6,0,6,0,6,+ 


CO 


000000000008 


AAA AA AAA AA AAA XI 


+,6,0,6,6,6,6,8,6,6,8,4,6,8,8,% 


000000000000 84 


0000000000 0 0 


M 


,,6,6,6,6,6,6,0,6,6,0,6,8,8,% 


vertes trees ete 


+,6,6,6,6,8,6,0,8,6,8,6,0,8,8 


RAA AAA AE A A 


+,6,6,0,6,6,8,8,0,0,8,6,8,8,% 


RAA AAA A AR AR A 


,,6,0,6,6,06,0,6,06,0,8,6,0,8,% 


SELLE 


a etat 


SELS 


RAA AAA A AE XX 


+,6,6,6,6,0,6,6,6,8,6,6,8,4,% 


SE 


RAA AAA AAA AAA A 


.,6,6,6,0,0,6,8,0,0,8,6,0,6,0,6,6,6,6,6,8,8,6,8,6,4,8, 


STEEL 





Dans ce labyrinthe assez simple, vous pouvez voir les différentes étapes de la 
recherche de la sortie, elle ne prendra qu'une dizaine de secondes. 
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COMMENT ÇA MARCHE ? 


| Ce logiciel comporte plusieurs modules destinés à initialiser les différentes va- 
riables et tableaux, ainsi que le terrain de jeu. 


Ensuite deux modules permettent à l'utilisateur de créer le labyrinthe de son 
choix : le premier détermine la sortie, quant au second il permet de dessiner le 
labyrinthe, c'est une sorte de petit logiciel graphique. 


Lorsque toutes ces opérations sont effectuées, le cœur du logiciel prend le 
relais, il s'agit du module recherchant la sortie du labyrinthe. 


Ce module fonctionne selon un algorithme récursif : il s'appelle lui-même, et 
donc s'enfonce à chaque appel d’un niveau de profondeur dans l'exploration, du 
moins, lorsqu'il peut aller dans une case qu'il n’a pas encore explorée, mémorisant 
dans une pile la trace de son passage. A l'inverse, il remonte dans l'exploration 
dès qu'il rencontre une case déjà explorée, dépilant la pile et revenant à la case 
indiquée par le terme dépilé. À force de dépiler, le programme revient à une inter- 
section à partir de laquelle il repart dans une direction non explorée, le module 
recommence alors à s'appeler lui-même. 


La souris se comporte finalement comme un petit poucet qui laisse des miettes 
de pain derrière lui. A chaque fois qu'elle rencontre devant elle des miettes, elle 
fait marche arrière, jusqu'à ce qu'elle trouve une bifurcation non explorée. Notre 
Souris recherche la sortie tel que le ferait un être humain qui n'aurait pas le plan 
du labyrinthe. 


La souris ne passe donc jamais deux fois au même endroit. A cette règle, une 
exception : si elle en a la possibilité, elle passera jusqu’à deux fois par une inter- 
section, ce qui lui fera gagner beaucoup de temps dans la majeure partie des cas. 
Autre perfectionnement, lorsque la souris a le choix entre plusieurs chemins elle 
“préfère” celui qui lui fait garder son cap. 


Le programme explore en fait un arbre dont les nœuds sont les bifurcations du 
labyrinthe, et dont les branches sont les tronçons qui rejoignent ces intersections. 
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Ce labyrinthe est la preuve qu'aucun piège et aucun cas de figure n'empêchera la 
souris de trouver la sortie. À vous de créer les labyrinthes les plus compliqués ! 


PRINCIPALES VARIABLES 
case (i) état de la case i (explorée, inexplorée, vide, pleine, bord) 
chemin(i) mémorisation des cases explorées à partir de la der- 


nière intersection 


10 REMEEEEHEREEENENENEE 

28 REM SOURIS (T. L.-A) 

30 REMEEEHEEEEEEHEHEREE 

40 MODE 2:INK 6,13:INK 1,0 

50 PRINT" MODE D'EMPLOI" 

6@ PRINT | 

70 PRINT" L'utilisation de ce logiciel s'effectue en 3 phases :" 

80 PRINT 

98 PRINT": Choisissez la sortie sur le perisetre du labyrinthe" 

188 PRINT" avec les fleches de curseur puis appuyez sur La touche ENTER." 
118 PRINT 

120 PRINT"2: Dessinez un Labyrinthe avec les fleches du curseur" 

138 PRINT" et La touche ESPACE pressee siaultanement pour creuser un cheain." 
140 PRINT" Appuyez sur ENTER pour terainer cette phase." 

138 PRINT 

168 PRINT": Placez la souris ou bon vous sesble sais dans une case vide"" 
178 PRINT" avec les fleches du curseur." 

188 PRINT"  Pressez la touche ENTER pour finir."" 

198 PRINT 

288 INPUT"Pour continuer, appuyez sur ENTER ",repf 

218 MODE 1:INK 0,1:INK 1,24 

220 WINDOW 1,40,1,24 

238 WINDOW#1,1,40,25,25 


270 DEFINT a-2 

288 DIN case (960) ,dep (4) ,sya(3) ,cheain (968) ,adir (968) 
290 DIM souris$(3) 

308 non.exploree=8 

318 exploree=1 

328 aur=2 

338 sartie=3 

348 bord=4 

398 coin=5 

368 intersection=é 

370 nord=d:est=1:sud=2:ouest=3: arret =4 

388 sya(nord)=sud:sya(sud)=nord:sya(est)=ouest :sya (ouest )=est 
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398 depinord)=-48 

408 dep(est}=1 

418 dep(sud)=48 

428 dep(ouest}=-1 

430 deplarret)=0 

448 baisse=l:leve=0 

450 REM---graphisae de la souris--- 

468 SYMBOL 245,16,56,16,56,124,56,16,16 
478 SYMBOL 246,0,0,16,58,259,36,0,0 

498 SYMBOL 247,16,16,56,124,56,16,56,16 
498 SYMBOL 248,0,0,8,92,255,36,0,0 

508 souris$(nord)=CHR$ (245) 

518 sourisf(est)=CHR$ (246) 

528 souris$(sud)=CHR$ (247) 

530 sourisf(ouest)=CHR$(248) 

54@ REM===========2==222222222222= 

590 REM initialisation du terrain 


970 REM---aurs partout--- 

080 FOR pcase=1 TO 968 

598 case(pcase)=aur 

688 NEXT pcase 

610 FOR i=1 TO 24:PRINT STRING$ (49,202); :NEXT i 

628 REM---cadre--- 

630 FOR x=1 TO 48 

648  LOCATE x,1:PRINT CHR$(143);:case(x)=bord 

658  LOCATE x,24:PRINT CHR$(143);:case(x+928)=bord 

668 NEXT x 

678 FOR y=2 TO 23 

688 LOCATE 1,y:PRINT CHR$(143);:case(48#(y-1)+1)=bord 
698  LOCATE 48,y:PRINT CHR$(143);:case(48#y)=bord 

700 NEXT y 

718 case(1)=coin:case(48)=coin:case(921)=coin:case(96@)=coin 


758 PRINT#] "choisissez la sortie (fleches et enter)" 
768 pcase=1:xa=1:yn=1 

778 LOCATE 1,1:PRINT * *; 

788 HHILE INKEY$C)CHRS (13) 

798 FOR teaps=1 TO 28B:NEXT teaps 

808 GOSUB 1828:REN test du clavier 

818 IF pcase(l THEN pcase=968+tpcase 

828 IF pcase}968 THEN pcase=pcase-968 

830 IF case(pcase)(>bord AND case(pcase){)coin THEN pcase=pcase-dep (dir) 
848 GOSUB 1930:REM conversion de pcase en x et y 
858 IF x=xa AND y=yn THEN 898 

868 LOCATE x,y:PRINT CHR$(32); 

878 LOCATE xa,ya:PRINT CHR$(143); 
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880 xa=x:ya=y 

898 WEND 

908 IF case(pcase)=coin THEN 788 
‘918 case(pcase)=sortie 


958 PRINT#1 ,"Dessinez un labyrinthe avec" 

968 FOR teaps=1 TO 4888: NEXT teaps 

978 PRINT#1,"Les FLECHES et ESPACE, puis ENTER" 

988 pcase=42: pacase=42:xa=2: ya=2 

998 LOCATE 2,2:PRINT CHR$(144); 

10808 WHILE INKEY$C)CHR$ (13) 

1818 GOSUB 1828:REM test du clavier 

1028 FOR teaps=1 TO 288:NEXT tesps 

1038 IF INKEY(47)=8 THEN crayon=baisse ELSE crayon=leve 

1948 IF case(pcase)=bord OR case(pcase)=sortie THEN pcase=pcase-dep(dir) 
1850 IF crayon=baisse THEN case(pcase)=vide 

1868 IF pcase=pacase THEN 1128 

1870 GOSUB 1938:REN conversion de pcase en x et y 

1888  LOCATE x,y:PRINT CHR$(144); 

1998 LOCATE xe,ya 

1188 IF caselpacase)=aur THEN PRINT CHR$(282); ELSE PRINT CHR$(32); 
1119  pacase=pcase:xa=x:ys=y 

1128 WEND 

1138 LOCATE x,y 

1148 IF case(pcase)=aur THEN PRINT CHR$(282); ELSE PRINT * "; 


1188 PRINT#1, "Placez la souris dans le labyrinthe" 

1198 FOR teaps=1 TO 40BB:NEXT teaps 

1288 PRINT#1, "Avec les fleches et la touche ENTER" 

1218 psouris=42:pasour is=42: xa=2: ya=2 

1228 LOCATE 2,2:PRINT CHR#(144); 

1230 WHILE INKEYSC)CHRS (13) 

1240  pcase=psouris:60SUB 1828:psouris=pcase:REN test clavier 
1258 FOR teaps=1 TO 288:NEXT teaps 

1268 IF caselpsouris)=bord OR caselpsouris)=sortie THEN psouris=psouris-dep(di 
r) 

1278 IF psouris=pasouris THEN 1328 

1288  p$f=souris$(dir):60SUB 1998:REM affichage de la souris 

1298  LOCATE xs,ya 

1360 IF case(pasouris)=aur THEN PRINT CHR$(282); ELSE PRINT " “; 
1318  pasouris=psouris:xa=x:ya=y 

1328 NEND 

1338 IF caselpasouris)=aur THEN 1230 

1348 dir=8:CLS#1 

1358 REMEHEHEEEEEEEEEEEREEHEEIRE 
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1368 REM RECHERCHE DE LA SORTIE 

1370 REMEFHEHEHEEHEEEEHEEEREREREEE 

1388 ndir=8 

1398 FOR essai .dir=nord TO ouest 

1488 IF essai.dir=adir THEN 1428 

1418  GOSUB 1618 

1420 NEXT essai.dir 

1438 essai.dir=adir:60SUB 1614 

1440 IF ndir=@ THEN 1550 

1458 IF ndir>2 THEN case(psouris)=intersection 

1468 IF ndir=1 THEN case(psouris)=exploree 

1470 p$=" ":60SUB 1998 

1480 psouris=psouristdep{dir) 

1498 p$=souris$(dir):60SUB 1998 

1508 GOSUB 1688 

1518 REM aeaorisation du chesin 

1528 cheain(pt)=psouris:adir (pti=syaldir):pt=pt+1 

1534 IF caselpsouris){)intersection THEN case(psouris)=exploree 
1548 GOTO 1380 

1550 p$=" ":60SUB 1998 

1568 IF pt=@ THEN 1738:REM fin sans solution 

1578 pt=pt-l:psouris=chenin(pt):REM retour sur ses pas 

1588 p#f=souris$(adir(pt}):60SUB 1990 

1590 60T0 1388 

1688 REM--- examen des cases environnantes --- 

1619 case=caselpsouristdeplessai.dir)) 

1628 IF case=non.exploree OR case=sortie THEN ndir=ndirtl:dir=essai.dir 
1630 IF case=intersection AND case(psouris){>intersection THEN ndir=ndir+l:dir 
=essai.dir 

1648 RETURN 


1680 IF caselpsouris)=sortie THEN 1740:REM fin avec solution 
1698 RETURN 


1738 PRINT#1,"Pas de sortie, on recossence (o ou n)?":60T0 1750 
1748 PRINT#I, "On recossence (a ou n)}?* 

1798 rep$=INKEYS$ 

1768 IF rep$="o" OR rep$="0" THEN RUN 

1778 IF rep#="n" OR rep$="N" THEN NODE 1:END 

1780 60TO 1750 

1790 REM========2==2=2=222=222222=222222222222222222= 

1888 REM TEST AU CLAVIER DE LA DIRECTION CHOISIE 


1828 dir=arret 
1838 IF INKEY(8)=8 THEN dir=nord 
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1848 IF INKEY(1)=@ THEN dir=est 
1858 IF INKEY(2)=8 THEN dir=sud 
1868 IF INKEY(8)=@ THEN dir=ouest 
1878 pcase=pcasetdep (dir) 

1888 RETURN 


1998 REM===========22=222222222222222=22222222222 
1988 REM TRANSFORMATION DU NUMERO DE CASE pcase 
1910 REN EN COORDONNEES x ET y 

1928 REM==========2=2222222222222222222222222222 


1938 y=1+INT((pcase-1)/48):x=pcase-40#(y-1) 
1948 RETURN 


1960 REM AFFICHAGE OU EFFACEMENT 
1978 REX DE LA SOURIS 


1998 PCASE=PSOURIS 

2088 G0SUB 1938:REN conversion de pcase en x et y 
2818 LOCATE x,y:PRINT p$ 

2828 adir=dir 

2830 RETURN 


SOPHIE : BOUCHE ANIMÉE 
COMMENT L'UTILISER ? 


Ce logiciel s'utilise par l'intermédiaire d'un menu offrant trois options : 


— entrée d’une phrase, formée en l'occurrence d’une séquence de phonèmes 
(dont la liste figure en bas de l'écran), séparés par des points (.) ; 


— modification de la vitesse ; 


— exécution de la séquence. Cette option provoque l'affichage de Sophie, puis 
l'animation de sa bouche, en accord avec la phrase frappée. 


COMMENT ÇA MARCHE ? 


Le fonctionnement de ce programme est des plus simples. Passons sur l'affi- 
chage du portrait, qui est élémentaire, pour nous attarder sur l'animation de la 
bouche, en fonction du texte frappé. 


A chaque phonème est associé le dessin d’une bouche correspondant à la 
prononciation de ce phonème. 


Le texte frappé par l'utilisateur est converti, phonème par phonème, en code 
numérique, et placé dans un tableau. 


Lorsque le texte est prononcé, chaque code est pris un par un et le dessin 
correspondant est affiché. Les phonèmes correspondant à des consonnes sont 
affichés cinq fois moins longtemps. 
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Sophie 5 :u 
PRINCIPALES VARIABLES 
phon$(i,j) j ième chaîne graphique du phonème de forme i de 
bouche 
pho$(i) phonétique du phonème i 
sequence(i) i ème phonème de la séquence à prononcer 
iphon(i) forme de bouche du phonème i 


1Q REMEHHEHEHEHEEEENEEHEE 


28 REM SOPHIE (T. L.-A) 
30 REMBHHEHEREREEENEEHEEE 


70 MODE 2:PRINT "Un instant ..." 

80 DEFINT a-2:DEFREAL x,y,p,v 

98 consosne=1:p=4 

188 DIN phon$ (18,3) ,x (238) ,y (238) ,pho$ (27) ,iphon (27) ,sequence (388) 

110 60SUB 878:REM definition des chaines de caracteres graphiques et points 
128 REM=========2===== MENU ======2==2=2=2=222: 

138 MODE ? 

148 WINDOW 1,88,1,22:WINDOW#2,1,88,24,25 
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150 FOR i=@ TO 27:PRINT#2,pho$(i);". "3: NEXT i 
168 LOCATE#3,1,23:PRINT#3,STRING$ (88,233); 
179 PRINT "Entree d'une nouvelle sequence -------- > Le 
180 PRINT "Modification de la vitesse ------------ F2 
198 PRINT "Execution de la sequence en memoire ---} 3° 
288 INPUT rep$:rep$=LOWERS$ (rep#) 
218 IF rep#f="i" THEN 260 
228 IF rep$="2" THEN 488 
238 IF regt="3" THEN 610 
248 PRINT "Repondez par 1,2 ou 3":G60T0 288 
298 REM==== ordre 1 du menu ==== 
268 PRINT "Entrez une sequence de phonemes (voir liste ci-dessous)" 
278 PRINT "en les separant par des points (".‘)" 
280 INPUT ph#$:1F RIGHT$(ph$,1)4>"." THEN ph$=ph$+"." 
290 REM==codage des phonenes 
300 k=0 
318 FOR i=i TO LEN(ph#) 
328 i$=MID$(phf,i,1) 
330 IF i$ci"." THEN 440 
349 REM--- codage d'un phonene 
350  j=0 
368 IF phof(j)=phon$ THEN sequence(k)=iphontj):k=k+1:G0T0 420 
F0 IF j327 THEN j=j+1: 6070 360 
380 REM--- correction 
398 PRINT “Le phonene ";phonf;" n'existe pas" 
400 INPUT "Par quel phoneme voulez-vous le reaplacer";phon$:60T0 350 
419  REN--- 
420 phon$="":60T0 450 
30 REM--- 
442  phon$=phonftif$ 
498 NEXT i 
460 np=k 
470 CLS:60T0 170 
480 REM=== ordre 2 du menu === 
498 CLS 
500 IF p=0 THEN v=180:60T0 528 
J10 v=100#60R(1/p) 
920 PRINT "La vitesse est de";v;"1" 
930 INPUT "quelle est la nouvelle valeur";v 
540 IF v<@ OR v>180 THEN PRINT "entre @ et 108 %, SVP":607T0 538 
JJ6 IF v=@ THEN PRINT “Valeur qui conduirait a une lenteur...infinie!":6070 538 
960 IF v=108 THEN p=@:CLS:60T0 178 
978 IF v=@ THEN p= 
588 p=10000/ (væv) 
998 CLS:6070 170 
608 REM=== ordre 3 du menu === 
610 IF np=8 THEN CLS:PRINT "Il n'y a pas de sequence en mesoire*:60T0 178 
626 GOSUB 2300:REM affichage du visage 
630 WINDON 1,20,1,1:WINDON#2,13,28,1,25 
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640 LOCATE#1,7,19:PRINT#1 ,phon$ (8,1); 

658 LOCATE#1,7,28:PRINT#1 ,phon$ (0,2); 

668 LOCATE#,7,21:PRINT#I ,phon$ (0,3); 

678 FOR j=1 TO 1@QB:NEUT j 

688 FOR i=B TO np-1 

698 IF sequence(i)=18 THEN FOR j=1 TO 10B#p:NEXT j 
708 LOCATE#1,7,19:PRINT#1,phonf (sequence(i),1}; 
718 LOCATE#1,7,20:PRINT#1 ,phon$ (sequence (i),2); 
728  LOCATE#1,7,21:PRINT#1,phonf (sequence(i),3); 
730 IF l(sequence(i})=voyelle THEN FOR j=1 TO 10B4#p:NEXT j:60T0 758 
740 FOR j=i TO 15#p:NEXT j 

750 NEÏT i 

768 LOCATE#1,7,19:PRINT#1,phon$ (8,1); 

770 LOCATE#1,7,28:PRINT#1 ,phon$ (0,2); 

780 LOCATE#1,7,21:PRINT#1 ,phon$ (8,3); 

798 CLS: INPUT "On recomaence";rep#:CLS 

808 rep$=LEFT$ (LOWER£ (rep$) ,1) 

818 IF rep$="a" THEN 680 

820 IF rep$="n" THEN 130 

830 GOTO 790 


858 REM definition des caracteres graphiques 
B6Q REM=========22=2=2222222222222222szszszzz 
870 SYMBOL AFTER 123 

888 ret$=CHR$ (10) +STRING$ (3,8) 

898 SYMBOL 123,0,0,0,0,8,0,0,182 

908 SYNBOL 124,0,1,7,15,0,15,7,3 

910 SYMBOL 125,295,255, 255, 255,0, 255, 295,255 
928 SYMBOL 128,0,128,224,248,0, 240,224, 192 
938 SYMBOL 127,255,126,24,0,0,8,8,8 

940 SYMBOL 128,1,8,0,0,0,0,0,0 

958 SYMBOL 129,128,0,0,0,0,0,0,8 


978 SYMBOL 130,0,0,0,0,64,64,129,135 

988 SYMBOL 131,0,0,0,8,0,0,195,231 

998 SYMBOL 132,0,0,0,0,2,2,129,255 

1008 SYMBOL 133,191,187,144,155,73,76,78,71 
1818 SYMBOL 134,255,255,0,255, 255,0, 255,60 
1828 SYNBOL 135,253,229,9,217,18,50,114,226 
183 SYMBOL 136,67,1,0,0,0,0,0,8 

1848 SYMBOL 137,195,255,255,60,0,0,0,0 

1850 SYMROL 138,194,128,0,8,8,8,0,8 


1878 SYMBOL 139,8,0,36,128,126,255,295,255 
1888 SYMBOL 149,0,1,1,1,2,1,1,1 

1898 SYMBOL 141,231,231,195,195,8,195,231,231 
1188 SYMBOL 142,0,128,128,128,64,128,128, 128 
1118 SYMBOL 143,255,255,126, 126,126, 60,0,0 
1128 SYMBOL 144,8,08,0,0,1,7,7,14 


1130 REM---- 


1148 SYMBOL 
1150 SYMBOL 
1168 SYMBOL 
1178 SYMBOL 
1188 SYMBOL 
1190 SYMBOL 
1288 SYMBOL 
1218 SYMBOL 


1220 REN---- 


1230 SYMBOL 
1240 SYMBOL 
258 SYMBOL 
1260 SYMBOL 
1278 SYMBOL 
1280 SYMBOL 
1290 SYMBOL 


1310 SYMBOL 
1320 SYMBOL 
1330 SYMBOL 
1348 SYMBOL 
1350 SYMBOL 
1368 SYMBOL 
1378 SYMBOL 
1388 SYMBOL 
1390 SYMBOL 


1408 REM---- 


1410 SYMBOL 
1428 SYMBOL 
1438 SYMBOL 
1448 SYNBOL 
1450 SYMBOL 
1460 SYNBOL 
1470 SYMBOL 
1488 SYMBOL 
1490 SYMBOL 


1508 REMN---- 


1510 SYMBOL 
1528 SYMBOL 
1530 SYMBOL 
1548 SYNBOL 
1550 SYMBOL 


1578 SYMBOL 
1588 SYMBOL 
1598 SYMBOL 
1688 SYMBOL 
1618 SYMBOL 
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145,0,8,0,231,255,255,255,0 
146,0,8,0,0,128,224,224,112 
147,8,11,16,16,16,8,8,12 
148,255,255,255,0,0,0,8,0 
149,16,208,8,8,8,16,16,48 
158,4,6,2,3,3,1,0,8 
151,8,0,255,68,195,255,255,68 
152,32,96,44,192,192,128,0,8 
153,0,8,0,0,0,8,1,1 
154,36,80,126,126,255, 295,295, 129 
155,0,8,0,0,8,08,128,128 
156,0,1,1,0,0,8,8,0 
157,0,231,231,255,255,295,126, 128 
158,8,128,128,0,0,0,0,8 
159,126,60,0,0,0,0,0,8 
160,0,0,0,8,8,1,3,3 
161,8,0,0,182,255,255, 255,255 
182,8,0,0,8,8,128,192,192 
143,7,7,6.68,6,7,3 
164,129,126,255,0,0,8,8, 129 
185,224,224,96,96,0,98,224, 192 
166,3,1,1,8,8,8,0,8 
187,195,255,255,255,126,68,0,8 
168,192,192,128,08,8,8,8,8 
170,0,8,0,0,8,0,0,1 
171,0,8,0,36,60,126,255,255 
172,0,0,0,0,0,8,0,128 
173,2,3,7,8,7,2,3 
174,195,189,126,8,8,0,195,255 
175,192,192,192,224,0,224,192, 192 
176,1,8,0,8,0,8,8,8 
177,255,255,126,68,8,8,0,0 
178,128,0,0,0,8,0,0,8 
179,0,0,8,7,8,7,33,64 
188,0,36,255,255,8,255,255, 124 
181,0,8,0,224,18,224,132,2 
182,64,128,128,128,0,8,0,8 
183,2,1,1,1,8,8,0,8 
184,0,8,0,0,8,8,0, 182 
185,0,1,3,7,15,0,15,7 
186,255,295, 255,195, 129,66, 231,255 
187,0,128,192,224,240,8, 240, 224 
188,7,3,1,0,0,8,0,8 
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1828 SYNBOL 189,255,255,255,60,8,8,0,0 

1638 SYMBOL 190,224,192,128,8,0,8,8,8 

1648 REM--------------"------ 

1658 SYMBOL 191,0,36,126,126,255,231,219,189 
1868 SYMBOL 192,1,1,1,1,1,1,1,1 

1870 SYMBOL 193,129,129,0,8,8,8, 129,129 

1688 SYMBOL 194,128,128,128,128,128,128,128,128 
1898 SYMBOL 195,189,219,219,231,128,126, 68,24 
1708 REM=== forme des yeux === 

1718 SYMBOL 248,15,48,196,4,38,36,147,156 

1720 SYMBOL 241,248,6,161,165,164,184,168,105 
1730 SYMBOL 242,116,88,132,73,41,37,84,74 

1740 SYMBOL 243,98,68,34,161,182,184,88,72 

1750 SYMBOL 244,84,147,148,148,34,34,34,2 

1768 SYMBOL 245,114,212,82,82,74,74,0,8 

1770 DATA 240,241,10,8,8,242,243,10,8,8,244,245 
1780 FOR i=1 TO 12:READ a:oeilf=oeil#$tCHR$ (a): NEXT i 
1790 REM==========2=2222222222222222222222225 
1808 REM definition de la forae de la bouche 
1810 REM pour chaque phoneñe 

1829 REM===========2=222222222222222222222227 
1830 REM--- repos --- 

1848 DATA 32,123,32,124,125,126,32,127,32 


185 REM--- 1 --- 

1868 DATA 138,131,132,133,134,135,136,137,138 
1878 REM--- 0 --- 

1888 DATA 32,139,32,140,141,142,32,143,32 
1898 REM--- À --- 

1908 DATA 144,145,146,147,148,149,150, 151,152 
1918 REM--- U --- 

1928 DATA 153,154,155,156,157,158, 32,159, 32 
1938 REM--- E --—- 


1948 DATA 168,161,162,163,164,185,186,167,188 
1950 REM--- C,S,D,J,6,K,L,N,R,T --- 

1968 DATA 170,171,172,173,174,175,176,177,178 
1978 REM--- B,M,P --- 

1988 DATA 32,32,32,179,180,181,182,32,183 
1998 REM--- F,V --- 

2008 DATA 32,184,32,185,186,187,188,189,198 
2018 REM--- en --- 

2820 DATA 32,191,32,192,193,194,32,195,32 
2038 REM=== reaplissage des variables associees a chaque phonese === 
2848 FOR i=@ TO 9 

2050 FOR j=1 TO 3 

2068 FOR k=i T0 3 


2070 READ a 
2888 phon${i,j}=phon$(i,j)+CHR$ (a) 
2098 NEXT k 


2188 NEXT j 
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2448 NEXT i 

2128 DATA repos, 0, it, e/,1, ou,2, 0,2, on,2, a,3, in,3, eç,3, u,4, 8,3, 5,6 
2138 DATA 5,6, d,6, j,6, g,6, k,6, 1,6, n,6, r,6, t,6, b,7,8,7, p,7, #,8, VE 
2140 DATA en,9, fige, l® 

2190 FOR i=@ T0 27 

2168 READ a$,b 

2170 phoflil=af 

2188  iphon(ii=b 

2190 NEXT i 

2200 FOR i=6 T0 B:itil=consomne:NEÂT : 

2210 REM--- remplissage des points --- 

2220 FOR i=1 T0 227 

2238 READ :,y 

2280 A 

225€ NEXT 

2268 RETURR 


As REM======2=2==222222222 
2300 echx=27:echy=27:x0=3: y8=0:d$=" saut" 
2310 MODE 0 
2320 LOCATE 6,14:PRINT oeil 
2330 LOCATE 9,14:PRINT oeil$ 
2340 RESTORE 3028 
2350 READ af 
2368 IF af="fin" THEN 2440 
2370 IF at="{" THEN df="saut":6070 2358 
2:80 pt=VAL (af) 
2390 x=echx#x (pt}+x0 
2408 y=echy#viptitye 
2410 IF d$="saut" THEN MOVE x,y:d$="trace":60T0 2358 
2420 IF d$="trace" THEN DRAN x,y,1:60T0 235 
2430 REM === retouches === 
2440 PLOT 220,187,0:PLOT 228,185:PLOT 216,179:PLOT 216,171:PLOT 212,165 
2450 PLOT 212,163:PLOT 208,161:PLOT 204,157:PLOT 284,159:PLOT 284,153 
2468 RETURN 
2478 REM=== coordonnees des points 


2480 DATA 8.2,1, 94,1, 10.5,1.4, 1. 2,2 21:08, 28 

2490 DATA 12,6,2.2, 137,1 5, 15.2,8.9, 18.5,8.4, 18.7,0 
2588 DATA 18.7,0.3, 17.2,0.8, 19.3,1.4, 14,21, 13,2.9 

2518 DATA 12.2,3,7, 16,1.5, 19,2.2, 142,3, 13.9,3.8 

2529 DATA 13.7,4,7, 13,5.1, 18.7,1.5, 14,5,4.3, 13.6,5 

2534 DATA 13.1,5.5, 12.8,9.9, 12.5,6.6, 12.4,7.4, 12.5,9.1 
2540 DATA 12.6,9.5, 12.4,10.3, 12,11, 11.4,11.6, 185,12 
2558 DATA 9.4,11,9, 8.3,11.6, 73,115, 12.1,9.8, 11.4,10.3 


2560 DATA 18.8,18.7, 9.4,10.9, 8.3,11, 7.4,18.9, 7.1,10.9 
2570 DATA 6.5,10.8, 6.2,18.3, 6.3,9.8, 6.6,9, 6.7,8.3 
2588 DATA 6.4,7.9, 6.2,7,7, 5.5,7.3, 4.9,7.1, #,6.9 


5,5 
2598 DATA 4.1,8.3, 4.3,5.3, 3.9,6.1, 3.6,7, 3.5,7.4 
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2400 DATA 3.4,8.6, 3,6,9.8, 4.1,10.8, 4,8,11.7, 5.6,12.4 
RASE 8.8,14, 18.5,13.4, 11.4,13.5 
20 DATA 12.5,13.4, 134,13, 14.1,12.3, 14.4,11.3, 14,4,18.2 
2430 DATA 15.3,9.1, 15.9,8.1, 18.4,7.2, 17.1,6.8, 17.8,8.3 
2640 DATA 1B.7,83, 143,89, 148,7.9. 146.1, 15,1,6,4 
DAS DATA 1588, tRAUS.8, 17,5.3, 176,88, 18,1,3,9 
24b@ DATA 18.7,2.7, 18.7,1.9, 17.1,3.3, 16.4,3. % 18.914. 9 
247 DATA 14,5.8, 13.86.8, 13,318.1, 13,11. 4, 12.4,12,2 
2880 DATA 11.5,12,6, 18,4,12.6, 8,3,12.1, 7.5,11 
2898 DATA 7,12, 61,114, 5.7,10.9, 5.7,10.4 
2788 DATA 5,8,18, 94,13, 8.8,13.3, 7.8,13.2 
2718 DATA 6.8,12.7, 7,12.2, 6,12, 5.2,11.2 
720 DATA 4.8,10.5, 4,7,18, 5,9.2, 5.1,8.8 
2738 DATA 5,8.4, 4.5,8, 3.9,7.8, 3.9,8.7 
2740 DATA 4.3,10.3, 4,9,11,4, 5,8,12.2, 1.7,8.2 
2750 DATA 1.1,7.5, 0.9,6.7, 8.9,5.9, 1.2,4.2 
7188 DATA BTi3u6, B3B, D3.2, 1,3. 
2778 DATA 1.7,3,5, 2.5,3.6, 2,9,4.1, 2,9,4.7 
2780 DATA 2.6,5.3, 2.1,6, 26.9, 2.7,7.8 
2790 DATA 5,5.6, 4.3,4,9, 39,4, 3.7,3.2 
2800 DATA 3.1,2.5, 2.2,2,1, 1.2,2,1, @,2.4 
2818 DATA 0,2, 1,1.7, 21.7, 3,2. 
2829 DATA 3.8,2.7, 4,5,3.5, 4,9,4,2, 5,1,5.1 
2830 DATA 5.4,4,2, 5.1,3.5, 4.7,2.8, 4,2.2 
2840 DATA 3.4,1.7, 2.8,1.4, 1.6,1.3, 8.8,1.2 
2850 DATA 0,12, 9.9,3.2, 6.3,2.5, 6.6,2.3 
2868 DATA 7.3,1.4, 4,8,8, 5.7,0.8, 6.3,1.7 
2870 DATA 8.7,2.7, 8.8,3,7, 7.1,4,3, 7.2,4,7 
2880 DATA 7.8,5.7, 8.4,7.3, 8.8,7.9, 7.5,9.9 
2898 DATA 55,1, 6.1,1.9, 6.5,3.7, 6.7,4.5 
2908 DATA 8,8.9, 8.2,7.8, 7.9,8.5, 7,9.9 
2918 DATA 8.9,18,5, 7.2,8.2, 7.7,8.1, 7.9,7.7 
2928 DATA 7.4,7,9, 6.9,7.9, 9.3,7.5, 9.8,8 
2930 DATA 10. 1,8 RER sm THAT 
2948 DATA 11,1,7,9, 10.9,7.9, 9.9,7.8, 8.5,4.7 
2950 DATA 8.6,6.2, 8.2,5.5, B.1,9.3, 8.1.4.9 
2888 DATA 9.3,4,7, 8. 7,4,7, 85,5, 9,44 
2978 DATA 9.2,5, 9.4,5,1, 9.6,5, 9.4,4.8 
2980 DATA 9.8,5.3, 9.9,5, 9.6,4,5, 8,0 
2998 DATA 18.7,8, 18.7,14, 0,14 


198 DATA 

3810 REM=== points du trace === 

3420 DATA 1,2,3,4,5,6,7,8,9,10,f 

3030 DATA 11,12,13,14,15,16,f 

3840 DATA 12,17,18,19,20,21,22,f 

3050 DATA 23,24,21,f 

3068 DATA 24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,f 

3870 DATA 5,16,22,26,f 

3080 DATA 30,39,40,41,42,45,44,45,46,47,48,49,50,51,52,93,54,99,56,97,58,99,68 


ROBOTS |167 


3098 DATA 81,82,63,64,85,66,67,68,69, 
3100 DATA 82,83,84,85,88,87,88,89,90, 
3110 DATA 82,75,f 

3120 DATA 92,93,94,95,96,97,98,99,100,101,102,183,184,185,106,187,188,189,48,f 
3138 DATA 118,111,112,113,114,115,116,117,118,119,128,121,122 

3148 DATA 123,124,125,126,127,113, 

3190 DATA 123,55,f,113,110,69,4 

3168 DATA 62,128,129,130,131,132,133,134, 

3170 DATA 135,136,137,138,139,140,141,142,143,144,61,f 

3180 DATA 145,146,147,148,149,150,151,152,f 

3190 DATA 153,154,155,156,157,158,159, 160,4 

3200 DATA 181,162,163,184,165,166,167,168,169,f 

3210 DATA 54,145,180,161,170,171,f 

3220 DATA 172,173,1, 

3230 DATA 174,175,176,177,178,179,180,181,182,183,184,44,38,105,114,113,66,f 
3240 DATA 174,185,186,187,188,189,190,191,192,193,45,4 

3250 DATA 50,194,195,196,197,198,51,f 

3260 DATA 199,200,201,202,283,204,205,206,207,199,f 

3270 DATA 288,209,210,f 

3280 DATA 211,212,213,214,215,213, 

3290 DATA 216,217,218,219,220,217,F,221,222,223,f 

3300 DATA 224,225,22b,227,224 

3310 DATA fin 

3320 LOCATE 10,18:PRINT phon$ (8); 


78,71,72,73,74,79,76,77,79,79,80,80,81,f 
91,f 


CONCLUSION : 


L'AVENIR 
DE L'INTELLIGENCE ARTIFICIELLE 


On a déjà beaucoup parlé, et on parlera encore beaucoup de ce que les japonais 
ont appelé (non sans prétention pensent certains) la cinquième génération d'or- 
dinateurs. Or les japonais ne sont pas particulièrement connus pour leurs diva- 
gations philosophiques, mais bien plutôt pour leur solide bon sens, leur pragmatisme 
et leur sens commercial. Alors, cette cinquième génération, entièrement tournée 
vers l'intelligence artificielle et ses applications n'est-elle pas pour l'occident une 
réponse aux tergiversations de ceux qui détiennent le pouvoir de décider des 
grands axes de la recherche ? 


Les japonais ont compris, avant tout le monde, l'énorme enjeu économique, 
mais aussi social et culturel que représentent toutes les applications de l'intelli- 
gence artificielle. Face à ces efforts fabuleux consentis à l'échelle nationale d'un 
des pays les plus riches du monde, les européens ont amorcé à leur tour une 
timide riposte : le projet ESPRIT, qui couvre plusieurs domaines prometteurs de 
l'intelligence artificielle, en est un exemple. Et bien sûr, les grands constructeurs, 
IBM à leur tête, n'hésitent pas à investir dans la recherche fondamentale ou ap- 
pliquée, en espérant tirer bénéfice de la prochaine mutation de société que pro- 
voquera le déferlement de l'intelligence artificielle dans le grand public. 


Les bases de connaissances vont complètement transformer les techniques de 
stockage de l'information : elles demanderont moins de place, les accès seront 
plus rapides, les mises à jour plus aisées. Bien au-delà d’un simple changement 
d'échelle de la technique, cette évolution va permettre à tout le monde d'accéder 
à n'importe quelle information, ou presque. C’est un véritable bouleversement qui 
se prépare : l'information bon marché et illimitée ! | 


Le dialogue homme-machine permettra de lever les dernières barrières entre le 
grand public et les ordinateurs. Il suffira à n'importe qui de spécifier, en langage 
naturel, son problème, pour que l'ordinateur lui réponde. Plus besoin de program- 
mes compliqués ni d’intermédiaire pour les écrire (informaticiens, etc.). 


Les robots, dotés d'intelligence artificielle, vont se révéler de plus en plus à 
même de remplacer l'homme dans des tâches de plus en plus complexes. Et, 
bouleversement supplémentaire, ces tâches concerneront quasiment tous les do- 
maines d'activités de l'homme et plus seulement quelques activités répétitives. 
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Les systèmes experts prendront le relais des experts humains dans des do- 
maines aussi variés que la médecine, l'enseignement, l'administration, etc. Cela 
n'ira pas sans poser des problèmes de déontologie aux experts humains : accep- 
teront-ils de transmettre à une machine une connaissance acquise durant toute 
une vie ? 


Une véritable révolution se prépare sous nos yeux, elle ne manque pas de 
soulever des questions de tous ordres. Philosophiquement d’abord : jusqu'où 
l'homme ira-t-il dans sa quête scientifique ? et surtout quelles seront les consé- 
quences de ses succès prévisibles ? de ses échecs ? Questions d'ordre moral 
également : quel impact aura sur nos activités l'introduction de l'intelligence artifi- 
cielle et des robots ? Comment le grand public réagira-t-il face aux nouveaux 
pouvoirs mis à sa disposition ? Et surtout comment opérer sans douleur la muta- 
tion difficile vers une société de loisir où le chômage ne serait plus une tare mais 
un droit ? Cet état de fait ne risquerait-il pas à terme de provoquer l’apathie, puis 
la fin de l'espèce humaine ? 


Toutes ces questions, et bien d’autres sont posées mais non résolues. Il 
conviendra d'y apporter toutes les réponses avant la révolution promise, et non 
après. Mais, est-ce possible ? En tout état de cause, la mutation est inéluctable : 
qu'elle se passe le mieux possible. Et comprenons que l'enjeu n'est pas seulement 
technique ou informatique. C'est une véritable aventure qui s'ouvre devant nous : 
pour notre part, nous ne voudrions la manquer sous aucun prétexte ! 


INDEX 


Action, 18, 14, 15, 17, 131 
Algorithme, 11, 28, 115 

Analyse phonétique, 50, 51, 52, 53 
Analyse sémantique, 50, 51, 52, 54 
Analyse syntaxique, 50, 51, 52, 53 
Apprentissage, 90 

BALANCE, 119 

Base de connaissance, 116 
Bateau sans médecin, 9 
Chaînage arrière, 118 

Chaînage avant, 118 

Eliza, 137 

Etape contextuelle, 50 

Etape phonologique, 50 

Etape prosodique, 51, 52 
Explosion combinatoire, 87 
Fonctions du cerveau, 14 
Heuristique, 11, 28, 88, 116 
Illusions d'optique, 24 

Minimax, 90 

Moteur d’inférence d'ordre un, 117 
Moteur d'inférence, 118 

Mycin, 10 

Perception, 13, 14, 15, 16, 21 
Phrases arborescentes, 55 
PHRASES, 75 

PUISSANCE QUATRE, 92 
Quadruplets, 97 

RECFORM, 33 

Reconnaissance de forme, 18, 23 
Reconnaissance de la parole, 47 
Réflexion, 13, 14, 15, 17, 85] 
ROBOT, 137 

SEMAN, 62 

Shrdlu, 137 

SOPHIE, 157 

SOURIS, 149 

Statistique, 11, 50 

SYNTAX, 55 

Systèmes experts, 113 

Test de Turing, 10 

TIC TAC TOE 3 dimensions, 92 


CONSEILS DE LECTURE 


Pour approfondir vos connaissances en BASIC, mieux connaître le système des 
CPC 464, 664 et 6128, et découvrir d’autres domaines de l'intelligence artificielle, 
P.S.I. vous propose une palette d'ouvrages utiles. 


Pour maîtriser le BASIC Amstrad 


— Basic Amstrad 1 - Méthode pratiques — Jacques Boisgontier et Bruno Césard 
(Editions du P.S.I.) 


Pour ceux qui ont déjà pratiqué un Basic, voici un ouvrage de perfectionnement 
au Basic Amstrad. Un chapitre sur le CP/M 22 et le CP/M Plus donne les 
principales commandes systèmes. 


— Basic Amstrad 2 - Programmes -— Jacques Boisgontier (Editions du P.S.I.) 
Pour pratiquer le Basic Amstrad, cet ouvrage donne de nombreux programmes 
de gestion, d'éducation et de jeu où le rôle des fichiers est expliqué et largement 
commenté. 

— Basic plus — 80 routines sur Amstrad — Michel Martin (Editions du P.S.I.) 


Pour pousser votre Amstrad au maximum de ses capacités : 80 routines de 
simulation d'instructions qui n'existent pas en Basic Amstrad. 


Pour mieux connaître le système des CPC et du PCW 8256 
— Clefs pour Amstrad 1 — système de base — Daniel Martin (Editions du P.S.I.) 


Mémento présentant synthétiquement le jeu d'instructions du Z80, les points 
d'entrée des routines système, les connecteurs et brochages, etc. 
Le livre de chevet du programmeur sur Amstrad. 


— Clefs pour Amstrad 2 — système disque — Daniel Martin et Philippe Jadoul 
(Editions du P.S.I.) 


Ce deuxième tome consacré au système disque présente les points d'entrée 
des routines disque, les blocs de contrôle, la programmation et les brochages 
des circuits spécialisés. 

La deuxième partie du livre est aussi destinée aux possesseurs d'Amstrad 8256. 
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— CP/M plus sur Amstrad — Yvon Dargery (Editions du P.S.I.) 


Toutes les commandes CP/M et CP/M plus pour maîtriser le système des 6128 
et 8256 : un ouvrage de référence illustré par de nombreux programmes. 


— Lelivre de l’Amstrad - Tome 1 - Daniel Martin et Philippe Jadoul (BCM -— diffusé 
par P.S.I.) 


Ce livre, destiné aux programmeurs des CPC 464 et 664, donne une étude 
complète de tous les circuits internes, et analyse la structure interne du BASIC. 
Vous y trouverez, en outre, une étude complète des RSX, et des programmes 
de scrolling, de traçage de rectangles, de coloriage de surface et de manipula- 
tion vectorielle. 


Pour découvrir d’autres domaines de l'intelligence artificielle 
— Trois étapes vers l'intelligence artificielle sur Amstrad CPC -— René Descamps 


— Trois étapes : apprentissage, jeux de réflexion et systèmes experts, sont illus- 
trées par 20 programmes Basic. Chaque partie est abondamment commentée 
de façon à mettre l'intelligence artificielle à la portée de tous. 


— Apple, logique et systèmes experts — René Descamps (Editions du P.S.I.) 


Une excellente introduction à la logique, illustrée par des programmes en Basic 
Applesoft accessibles à tous. Trois micros systèmes experts permettent de 
concevoir ce qu'il est possible de réaliser dans le domaine professionnel sur de 
gros ordinateurs. 


— Systèmes industriels d'intelligence artificielle — Lucas Pun (Editests, diffusé par 
P.S.I.) 


Cet ouvrage s'adresse aux ingénieurs industriels, automaticiens et informati- 
ciens qui ont à concevoir et à réaliser des Systèmes Industriels d’Intelligence 
Attificielle (SIIA). 


Pour être informé régulièrement de l’actualité des micros Amstrad 
0 MICROSTRAD, revue mensuelle du Groupe Tests. 


Pour exploiter au mieux les capacités de votre micro, vous trouverez au som- 
maire de chaque numéro, un rendez-vous avec les rubriques clés : 


— Découvrez la face cachée de votre CPC ou CPW : astuces, idées, conseils, 
tout pour comprendre votre micro, son anatomie, son fonctionnement, sa 
programmation et exploiter ses capacités graphiques et sonores. 


— Domptez votre CPC 464, 664, 6128, PCW 8256 ou 8512 : passionnés, petits 
ou grands, spécialistes ou débutants, une information pratique et la compé- 
tence d'experts au service de votre micro. 


— Programmez votre micro Amstrad : dans chaque numéro de MICROSTRAD, 
un cocktail de programmes (dessins, jeux, utilitaires, gestion, etc.) et des 
trucs de programmation. 


LA. SUR AMSTRAD CPC 


Votre avis nous intéresse 


Pour nous permettre de faire de meilleurs livres, adressez-nous vos critiques sur le 
présent ouvrage. 


— Ce livre vous donne:t-il toute satisfaction ? 








— Ÿ at-il un aspect du problème que vous auriez aimé voir abordé ? 








Si vous souhaitez des éclaircissements techniques, écrivez-nous, nous ne manquerons 
pas de vous répondre directement. 


Où avez-vous acheté ce livre ? 


O cadeau D librairie D autres 
CO exposition O boutique micro 

Comment en avez-vous eu connaissance ? 

O publicité DO catalogue DO autres 
D exposition D conseils d'un ami 


Avez-vous déjà acquis des livres P.S.I. ? 
Lesquels ? 


qu'en pensez-vous ? 







. Prénom … 


Nom 
Adresse . 
Profession 
Centre d'intérêt … 

















A Cr dne 
Une goes Le HoulA ner 
ONE Cher brel 


_ 


CATALOGUE GRATUIT 


Vous pouvez obtenir un catalogue complet des ouvrages PSI, sur simple demande, ou en retournant 
cette page remplie à votre libraire, à votre boutique micro ou aux 


Editions du PSI 
BP 86 
77402 Lagny-sur-Marne Cedex 
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